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

* Fix bug ID #26571

Browse Source 
git-svn-id: trunk@30306 -
This commit is contained in:
michael 2015-03-24 13:09:42 +00:00
parent d193c51dbd
commit 23ca31480c
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -260,7 +260,7 @@ begin
if (Result='') then
begin
if FEmitLine then
AddToStatement(S,(FCol=1));
AddToStatement(S,(FCol<=1));
FCol:=1;
FLine:=FLine+1;
end
@ -442,11 +442,12 @@ function TCustomSQLScript.NextStatement: AnsiString;
var
pnt: AnsiString;
terminator_found: Boolean;
addnewline,terminator_found: Boolean;
begin
terminator_found:=False;
ClearStatement;
addnewline:=false;
while FLine <= FSQL.Count do
begin
pnt:=FindNextSeparator([FTerminator, '/*', '"', '''', '--']);
@ -476,7 +477,10 @@ begin
begin
FComment:=True;
if FCommentsInSQL then
AddToStatement(Copy(FSQL[FLine-1],FCol,Length(FSQL[FLine-1])-FCol+1),True);
begin
AddToStatement(Copy(FSQL[FLine-1],FCol,Length(FSQL[FLine-1])-FCol+1),False);
AddNewLine:=true;
end;
Inc(Fline);
FCol:=0;
FComment:=False;
@ -494,7 +498,8 @@ begin
AddToStatement(pnt,False);
FCol:=FCol + length(pnt);
pnt:=FindNextSeparator(['''']);
AddToStatement(pnt,false);
AddToStatement(pnt,addnewline);
addnewline:=False;
FCol:=FCol + length(pnt);
end;
end;