opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Bugfix: fix regression from r1491.

Browse Source
This commit is contained in:
rosenfield.albert
2008-06-24 09:27:45 +00:00
parent f64626f152
commit 6ec59d8667
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/zeosdbo/src/component/ZSqlMonitor.pas
View File

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