[Jcl-checkins-diff] SF.net SVN: jcl:[2784] trunk/jcl/source/common/JclSysUtils.pas

[<ou...@us...>]

Revision: 2784
          http://jcl.svn.sourceforge.net/jcl/?rev=2784&view=rev
Author:   outchy
Date:     2009-05-30 15:00:45 +0000 (Sat, 30 May 2009)

Log Message:
-----------
Mantis 4775: TJclSysUtils.TJclSimplelog.TimeWrite is not "unicoded".

Modified Paths:
--------------
    trunk/jcl/source/common/JclSysUtils.pas

Modified: trunk/jcl/source/common/JclSysUtils.pas
===================================================================
--- trunk/jcl/source/common/JclSysUtils.pas	2009-05-30 14:48:01 UTC (rev 2783)
+++ trunk/jcl/source/common/JclSysUtils.pas	2009-05-30 15:00:45 UTC (rev 2784)
@@ -3211,6 +3211,7 @@
 procedure TJclSimpleLog.TimeWrite(const Text: string; Indent: Integer = 0);
 var
   S: string;
+  UTF8S: TUTF8String;
   SL: TStringList;
   I: Integer;
 begin
@@ -3222,7 +3223,8 @@
       for I := 0 to SL.Count - 1 do
       begin
         S := DateTimeToStr(Now)+' : '+StringOfChar(' ', Indent) + StrEnsureSuffix(NativeLineBreak, TrimRight(SL[I]));
-        FileWrite(FLogFileHandle, Pointer(S)^, Length(S));
+        UTF8S := StringToUTF8(S);
+        FileWrite(FLogFileHandle, UTF8S[1], Length(UTF8S));
       end;
     finally
       SL.Free;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.