Bläddra i källkod

* Fetch prior records if buffer is expanded at EOF (mantis 7934)

git-svn-id: trunk@6133 -
joost 19 år sedan
förälder
incheckning
216150e2e1
1 ändrade filer med 2 tillägg och 0 borttagningar
  1. 2 0
      fcl/db/dataset.inc

+ 2 - 0
fcl/db/dataset.inc

@@ -877,6 +877,8 @@ begin
   Writeln('Getting next buffers');
 {$endif}
   GetNextRecords;
+  if FRecordCount < FBufferCount then
+    GetPriorRecords;
 {$Ifdef dsDebug}
   WriteLn(
     'SetBufferCount: FActiveRecord=',FActiveRecord,