Browse Source

* fcl-db: sqlscript: fix inadvertent change in r27407

git-svn-id: trunk@27769 -
reiniero 11 years ago
parent
commit
503086eca9
1 changed files with 3 additions and 10 deletions
  1. 3 10
      packages/fcl-db/src/base/sqlscript.pp

+ 3 - 10
packages/fcl-db/src/base/sqlscript.pp

@@ -459,16 +459,9 @@ begin
     pnt:=FindNextSeparator([FTerminator, '/*', '"', '''']);
     if (pnt=FTerminator) then
       begin
-      if pnt='' then
-      begin
-        // Empty line, only e.g. a ; present:
-        FEmitLine:=False;
-        end
-        else begin
-        FCol:=FCol + length(pnt);
-        terminator_found:=True;
-        break;
-        end;
+      FCol:=FCol + length(pnt);
+      terminator_found:=True;
+      break;
       end
     else if pnt = '/*' then
       begin