From 51f353894d164bc1ab7440c5b33fa2340d5bcdb9 Mon Sep 17 00:00:00 2001 From: joost Date: Fri, 29 Oct 2010 19:13:42 +0000 Subject: =?UTF-8?q?=20*=20Patch=20from=20Jos=C3=A9=20Mejuto=20so=20that=20?= =?UTF-8?q?TBufDataset.SetRecNo=20takes=20the=20active=20index=20into=20ac?= =?UTF-8?q?count,=20bug=2015460?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16257 3ad0048d-3df7-0310-abae-a5850022a9f2 --- packages/fcl-db/src/base/bufdataset.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'packages/fcl-db') 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; -- cgit v1.2.1