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

Timestamp:

Dec 7, 2017, 12:21:08 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Build under Lazarus 1.8.0.
• Modified: Updated Common package.

File:

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

trunk/Packages/Common/UDebugLog.pas

@@ -103 +103 @@
   try
     if ExtractFileDir(FileName) <> '' then
-      ForceDirectoriesUTF8(ExtractFileDir(FileName));
-    if FileExistsUTF8(FileName) then LogFile := TFileStream.Create(UTF8Decode(FileName), fmOpenWrite)
+      ForceDirectories(ExtractFileDir(FileName));
+    if FileExists(FileName) then LogFile := TFileStream.Create(UTF8Decode(FileName), fmOpenWrite)
       else LogFile := TFileStream.Create(UTF8Decode(FileName), fmCreate);
     LogFile.Seek(0, soFromEnd);