Fix EArgumentOutOfRangeException in TDBConnection.PrefetchResults whe…

…n SQL batch could not be separated correctly. Should be a rare case, but happened, see http://www.heidisql.com/forum.php?t=21380
HeidiSQL · May 24, 2016 · 9754d5d · 9754d5d
1 parent 4db4931
commit 9754d5d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/source/dbconnection.pas b/source/dbconnection.pas
@@ -3421,7 +3421,8 @@ procedure TDBConnection.PrefetchResults(SQL: String);
   LastResults := GetLastResults;
   for i:=0 to LastResults.Count-1 do begin
     FPrefetchResults.Add(LastResults[i]);
-    FPrefetchResults[i].SQL := Batch[i].SQL;
+    if Batch.Count > i then
+      FPrefetchResults[i].SQL := Batch[i].SQL;
   end;
   Batch.Free;
 end;