From 49b6e358625c8532f3f4b35f494884670228ec18 Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Wed, 3 May 2006 13:03:18 +0000
Subject: [PATCH]  + RecNo should be -1 if the recordset is empty

git-svn-id: trunk@3415 -
---
 fcl/db/bufdataset.inc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/fcl/db/bufdataset.inc b/fcl/db/bufdataset.inc
index fbcb6c8760..501f96cb68 100644
--- a/fcl/db/bufdataset.inc
+++ b/fcl/db/bufdataset.inc
@@ -633,9 +633,10 @@ Var SearchRecBuffer : PBufRecLinkItem;
 
 begin
   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
-    GetBookmarkData(ActiveBuffer,@SearchRecBuffer);
+    GetBookmarkData(abuf,@SearchRecBuffer);
     TmpRecBuffer := FFirstRecBuf;
     recnr := 1;
     while TmpRecBuffer <> SearchRecBuffer do