* Patch from José Mejuto so that TBufDataset.SetRecNo takes the active index into account, bug 15460

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16257 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 1 insertions, 1 deletions

diff --git a/packages/fcl-db/src/base/bufdataset.pas b/packages/fcl-db/src/base/bufdataset.pas
index 50323f4cc8..868c6ee9d1 100644
--- a/packages/fcl-db/src/base/bufdataset.pas
+++ b/packages/fcl-db/src/base/bufdataset.pas
@@ -2257,7 +2257,7 @@ begin
     end;
   TmpRecBuffer := (FCurrentIndex as TDoubleLinkedBufIndex).FFirstRecBuf;
   for recnr := 1 to value-1 do
-    TmpRecBuffer := TmpRecBuffer^.next;
+    TmpRecBuffer := TmpRecBuffer[FCurrentIndex.IndNr].next;
   GotoBookmark(@TmpRecBuffer);
 end;