Changeset 290 for Common/UDebugLog.pas

Timestamp:

Nov 4, 2011, 11:42:45 AM (13 years ago)

Author:

george

Message:

• Added: Unit UMemory for manipulation with memory block. Unit contains simple class TPositionMemory for storing position with memory block and mimic behaviour of TMemoryStream.
• Fixed: Deleting files with special national characters.

File:

• Common/UDebugLog.pas (modified) (1 diff)

Common/UDebugLog.pas

@@ -101 +101 @@
 begin
   try
-    if FileExistsUTF8(FileName) then LogFile := TFileStream.Create(FileName, fmOpenWrite)
-      else LogFile := TFileStream.Create(FileName, fmCreate);
+    ForceDirectoriesUTF8(ExtractFileDir(FileName));
+    if FileExistsUTF8(FileName) then LogFile := TFileStream.Create(UTF8Decode(FileName), fmOpenWrite)
+      else LogFile := TFileStream.Create(UTF8Decode(FileName), fmCreate);
     LogFile.Seek(0, soFromEnd);
     Text := FormatDateTime('hh:nn:ss.zzz', Now) + ': ' + Text + LineEnding;