Changeset 424 for trunk/Packages/Common/UDebugLog.pas

Timestamp:

Apr 25, 2022, 6:22:53 PM (3 years ago)

Author:

chronos

Message:

• Modified: Update Common package to version 0.10.
• Modified: fgl unit replaced by Generics.Collections.

File:

• trunk/Packages/Common/UDebugLog.pas (modified) (5 diffs)

trunk/Packages/Common/UDebugLog.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, FileUtil, fgl, SyncObjs;
+  Classes, SysUtils, FileUtil, Generics.Collections, SyncObjs;
 
 type
@@ -13 +13 @@
     Group: string;
     Text: string;
+  end;
+
+  TDebugLogItems = class(TObjectList<TDebugLogItem>)
   end;
 
@@ -27 +30 @@
     procedure SetMaxCount(const AValue: Integer);
   public
-    Items: TFPGObjectList<TDebugLogItem>;
+    Items: TDebugLogItems;
     Lock: TCriticalSection;
     procedure Add(Text: string; Group: string = '');
@@ -116 +119 @@
 begin
   inherited;
-  Items := TFPGObjectList<TDebugLogItem>.Create;
+  Items := TDebugLogItems.Create;
   Lock := TCriticalSection.Create;
   MaxCount := 100;
@@ -125 +128 @@
 destructor TDebugLog.Destroy;
 begin
-  Items.Free;
-  Lock.Free;
+  FreeAndNil(Items);
+  FreeAndNil(Lock);
   inherited;
 end;