Changeset 75 for trunk/Packages/Common/DebugLog.pas

Timestamp:

Jun 4, 2024, 12:22:49 AM (5 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Modified: Updated Common package.

File:

• trunk/Packages/Common/DebugLog.pas (moved) (moved from trunk/Packages/Common/UDebugLog.pas ) (7 diffs)

trunk/Packages/Common/DebugLog.pas

@@ -1 @@
-unit UDebugLog; 
-
-{$mode delphi}
+unit DebugLog;
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil, SpecializedList, SyncObjs;
+  Classes, SysUtils, FileUtil, Generics.Collections, SyncObjs;
 
 type
@@ -15 +13 @@
     Group: string;
     Text: string;
+  end;
+
+  TDebugLogItems = class(TObjectList<TDebugLogItem>)
   end;
 
@@ -29 +30 @@
     procedure SetMaxCount(const AValue: Integer);
   public
-    Items: TListObject;
+    Items: TDebugLogItems;
     Lock: TCriticalSection;
     procedure Add(Text: string; Group: string = '');
@@ -44 +45 @@
 
 procedure Register;
+
 
 implementation
@@ -104 +106 @@
     if ExtractFileDir(FileName) <> '' then
       ForceDirectories(ExtractFileDir(FileName));
-    if FileExists(FileName) then LogFile := TFileStream.Create(UTF8Decode(FileName), fmOpenWrite)
-      else LogFile := TFileStream.Create(UTF8Decode(FileName), fmCreate);
+    if FileExists(FileName) then LogFile := TFileStream.Create(FileName, fmOpenWrite)
+      else LogFile := TFileStream.Create(FileName, fmCreate);
     LogFile.Seek(0, soFromEnd);
     Text := FormatDateTime('hh:nn:ss.zzz', Now) + ': ' + Text + LineEnding;
@@ -117 +119 @@
 begin
   inherited;
-  Items := TListObject.Create;
+  Items := TDebugLogItems.Create;
   Lock := TCriticalSection.Create;
   MaxCount := 100;
@@ -126 +128 @@
 destructor TDebugLog.Destroy;
 begin
-  Items.Free;
-  Lock.Free;
+  FreeAndNil(Items);
+  FreeAndNil(Lock);
   inherited;
 end;
 
 end.
-