Changeset 456 for Common/UDebugLog.pas

Timestamp:

Nov 28, 2012, 7:46:07 AM (12 years ago)

Author:

chronos

Message:

• Modified: In Common package method DebugLog.Add now expect Text as first parameter.

File:

• Common/UDebugLog.pas (modified) (2 diffs)

Common/UDebugLog.pas

@@ -31 +31 @@
     Items: TListObject;
     Lock: TCriticalSection;
-    procedure Add(Group: string; Text: string);
+    procedure Add(Text: string; Group: string = '');
     procedure WriteToFile(Text: string);
     constructor Create(AOwner: TComponent); override;
@@ -69 +69 @@
 end;
 
-procedure TDebugLog.Add(Group: string; Text: string);
+procedure TDebugLog.Add(Text: string; Group: string = '');
 var
   NewItem: TDebugLogItem;