SQL Script read beyond EOF: http://github.com/hgourvest/uib/issues/10

the-Arioch · Mar 16, 2017 · 22a841e · 22a841e
1 parent 8a20c20
commit 22a841e
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/source/uibsqlparser.pas b/source/uibsqlparser.pas
@@ -221,17 +221,19 @@ function TUIBSQLParser.GetStatement: string;
 end;
 
 function TUIBSQLParser.NextLine: boolean;
+var iNextLine: integer;
 begin
-  inc(FLine);
-  result := (FLine < FStrings.Count);
-  if result then
+  iNextLine := Succ(FLine);
+  Result := (iNextLine < FStrings.Count);
+  if Result then
   begin
+    FLine := iNextLine;
     FStr := FStrings[FLine];
     FCursor := PChar(FStr);
   end;
 end;
 
-// simple grammar analyser method
+// simple grammar analyzer method
 function TUIBSQLParser.NextStatement: TSQLStatement;
 var
   LastTock: TSQLToken;