* add blockreadnext (same implementation as next for now), and change

   .next to call it. Mantis #8203

git-svn-id: trunk@20533 -

packages/fcl-db/src/base/dataset.inc

@@ -2029,6 +2029,14 @@ end;
 
 Procedure TDataset.Next;
 
+begin
+  if BlockReadSize>0 then
+    BlockReadNext
+  else
+    MoveBy(1);
+end;
+
+Procedure TDataset.BlockReadNext;
 begin
   MoveBy(1);
 end;

packages/fcl-db/src/base/db.pas

@@ -1413,6 +1413,7 @@ type
     procedure RecalcBufListSize;
     procedure ActivateBuffers; virtual;
     procedure BindFields(Binding: Boolean);
+    procedure BlockReadNext; virtual;
     function  BookmarkAvailable: Boolean;
     procedure CalculateFields(Buffer: TRecordBuffer); virtual;
     procedure CheckActive; virtual;