Merged revisions 4327 via svnmerge from

svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
  r4327 | joost | 2006-08-01 23:46:43 +0200 (Tue, 01 Aug 2006) | 1 line
  
   + fix for bug #7211
........

git-svn-id: branches/fixes_2_0@4467 -

fcl/db/bufdataset.inc

@@ -92,7 +92,10 @@ end;
 
 procedure TBufDataset.InternalFirst;
 begin
-  FCurrentRecBuf := nil;
+// if FCurrentRecBuf = FLastRecBuf then the dataset is just opened and empty
+// in which case InternalFirst should do nothing (bug 7211)
+  if FCurrentRecBuf <> FLastRecBuf then
+    FCurrentRecBuf := nil;
 end;
 
 procedure TBufDataset.InternalLast;