Changeset 489 for Common/UDebugLog.pas

Timestamp:

Oct 11, 2016, 4:17:20 PM (8 years ago)

Author:

chronos

Message:

• Modified: Improvements for running with FPC 3.0 and Lazarus 1.6.

File:

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

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);