Changeset 510 for Common/UDebugLog.pas


Ignore:
Timestamp:
Apr 11, 2018, 11:22:58 AM (7 years ago)
Author:
chronos
Message:
  • Added: Basic TStringTable class.
  • Fixed: Removed various compiler warnings.
Location:
Common
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • Common

    • Property svn:ignore

      •  

        old new  
        11lib
        22backup
         3*.lrj

  • Common/UDebugLog.pas

    r489 r510  
    104104    if ExtractFileDir(FileName) <> '' then
    105105      ForceDirectories(ExtractFileDir(FileName));
    106     if FileExists(FileName) then LogFile := TFileStream.Create(UTF8Decode(FileName), fmOpenWrite)
    107       else LogFile := TFileStream.Create(UTF8Decode(FileName), fmCreate);
     106    if FileExists(FileName) then LogFile := TFileStream.Create(FileName, fmOpenWrite)
     107      else LogFile := TFileStream.Create(FileName, fmCreate);
    108108    LogFile.Seek(0, soFromEnd);
    109109    Text := FormatDateTime('hh:nn:ss.zzz', Now) + ': ' + Text + LineEnding;
Note: See TracChangeset for help on using the changeset viewer.