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

git-svn-id: trunk@16257 -

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;