From 6ec59d86675e43defc916db6c6caec43c2fdef8e Mon Sep 17 00:00:00 2001
From: "rosenfield.albert"
 <rosenfield.albert@40cadd2d-89a2-4482-8f20-0232d845d7e3>
Date: Tue, 24 Jun 2008 09:27:45 +0000
Subject: [PATCH] Bugfix: fix regression from r1491.

---
 components/zeosdbo/src/component/ZSqlMonitor.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/zeosdbo/src/component/ZSqlMonitor.pas b/components/zeosdbo/src/component/ZSqlMonitor.pas
index 3823d17b..6e1a53c0 100644
--- a/components/zeosdbo/src/component/ZSqlMonitor.pas
+++ b/components/zeosdbo/src/component/ZSqlMonitor.pas
@@ -263,7 +263,7 @@ var
   LogTrace: Boolean;
   Stream: TFileStream;
   Temp: WideString;
-  Buffer: PChar;
+  Buffer: PWideChar;
 begin
   LogTrace := True;
   DoTrace(Event, LogTrace);
@@ -288,8 +288,8 @@ begin
     try
       Stream.Seek(0, soFromEnd);
       Temp := Event.AsString + #13#10;
-      Buffer := PChar(Temp);
-      Stream.Write(Buffer^, StrLen(Buffer));
+      Buffer := PWideChar(Temp);
+      Stream.Write(Buffer^, Length(Temp));
     finally
       Stream.Free;
     end;