paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 18:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ RecNo should be -1 if the recordset is empty

Browse Source 
git-svn-id: trunk@3415 -
This commit is contained in:
joost 2006-05-03 13:03:18 +00:00
parent 438981a689
commit 49b6e35862
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fcl/db/bufdataset.inc
View File

@ -633,9 +633,10 @@ Var SearchRecBuffer : PBufRecLinkItem;
begin begin
abuf := ActiveBuffer; abuf := ActiveBuffer;
if assigned(abuf) then // If abuf isn't assigned, the recordset probably isn't opened.
if assigned(abuf) and (FRecordCount>0) then
begin begin
GetBookmarkData(ActiveBuffer,@SearchRecBuffer); GetBookmarkData(abuf,@SearchRecBuffer);
TmpRecBuffer := FFirstRecBuf; TmpRecBuffer := FFirstRecBuf;
recnr := 1; recnr := 1;
while TmpRecBuffer <> SearchRecBuffer do while TmpRecBuffer <> SearchRecBuffer do