paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 00:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug in SQL -- comment handling (by Andrea Urbani, bug ID #28333)

Browse Source 
git-svn-id: trunk@32800 -
This commit is contained in:
michael 2015-12-30 16:02:52 +00:00
parent 46e672e0a0
commit 2b2bf19981
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/fcl-db/src/base/sqlscript.pp
View File

@ -278,7 +278,11 @@ function TCustomSQLScript.Available: Boolean;
begin
With FSQL do
Result:=(FLine<Count) or (FCol<Length(Strings[Count-1]))
Result:=(FLine<Count) or
(
( FLine = Count ) and
( FCol < Length(Strings[Count-1] ) )
);
end;
procedure TCustomSQLScript.InternalStatement(Statement: TStrings; var StopExecution: Boolean);
@ -442,12 +446,11 @@ function TCustomSQLScript.NextStatement: AnsiString;
var
pnt: AnsiString;
addnewline,terminator_found: Boolean;
terminator_found: Boolean;
begin
terminator_found:=False;
ClearStatement;
addnewline:=false;
while FLine <= FSQL.Count do
begin
pnt:=FindNextSeparator([FTerminator, '/*', '"', '''', '--']);
@ -477,12 +480,9 @@ begin
begin
FComment:=True;
if FCommentsInSQL then
begin
AddToStatement(Copy(FSQL[FLine-1],FCol,Length(FSQL[FLine-1])-FCol+1),False);
AddNewLine:=true;
end;
Inc(Fline);
FCol:=0;
FCol:=1;
FComment:=False;
end
else if pnt = '"' then
@ -498,8 +498,7 @@ begin
AddToStatement(pnt,False);
FCol:=FCol + length(pnt);
pnt:=FindNextSeparator(['''']);
AddToStatement(pnt,addnewline);
addnewline:=False;
AddToStatement(pnt,false);
FCol:=FCol + length(pnt);
end;
end;