opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 10:02:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

Bugfix: Zeos threw away conditional SQL. Fixes issue #1828300.

Browse Source
This commit is contained in:
rosenfield
2007-11-09 07:54:10 +00:00
parent 6498d22f2e
commit 875407d0bd
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/zeosdbo/src/parsesql/ZMySqlToken.pas
View File

@ -338,14 +338,19 @@ begin
ReadNum := Stream.Read(ReadChar, 1); ReadNum := Stream.Read(ReadChar, 1);
if (ReadNum > 0) and (ReadChar = '*') then if (ReadNum > 0) and (ReadChar = '*') then
begin begin
Result.TokenType := ttComment; ReadNum := Stream.Read(ReadChar, 1);
Result.Value := '/*' + GetMultiLineComment(Stream);
end
else
begin
if ReadNum > 0 then if ReadNum > 0 then
Stream.Seek(-1, soFromCurrent); Stream.Seek(-1, soFromCurrent);
if (ReadNum > 0) and (ReadChar <> '!') then
begin
ReadNum := 0;
Result.TokenType := ttComment;
Result.Value := '/*' + GetMultiLineComment(Stream);
end else
ReadNum := 1;
end; end;
if ReadNum > 0 then
Stream.Seek(-1, soFromCurrent);
end; end;
if (Result.TokenType = ttUnknown) and (Tokenizer.SymbolState <> nil) then if (Result.TokenType = ttUnknown) and (Tokenizer.SymbolState <> nil) then