Changeset 167 for branches/generator/Packages/Common/UDebugLog.pas

Timestamp:

Aug 9, 2018, 3:43:27 PM (6 years ago)

Author:

chronos

Message:

• Modified: Update Common package.
• Fixed: Remember forms dimensions after application restart.

File:

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

branches/generator/Packages/Common/UDebugLog.pas

@@ -104 +104 @@
     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;