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

Timestamp:

Dec 10, 2016, 4:25:33 PM (8 years ago)

Author:

chronos

Message:

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