* applied BOF patch + test from Lacak2. Mantis #22377

git-svn-id: trunk@22562 -

packages/fcl-db/src/base/dataset.inc

@@ -404,12 +404,12 @@ begin
 {$ifdef dsdebug}
   Writeln ('Calling internal open');
 {$endif}
-  FBOF:=True;
 {$ifdef dsdebug}
   Writeln ('Calling RecalcBufListSize');
 {$endif}
   FRecordcount := 0;
   RecalcBufListSize;
+  FBOF:=True;
   FEOF := (FRecordcount = 0);
 end;
 

packages/fcl-db/tests/testdbbasics.pas

@@ -368,6 +368,8 @@ begin
     CheckTrue(EOF);
     CheckTrue(BOF);
     open;
+    CheckTrue(BOF, 'No BOF when opened non-empty dataset');
+    CheckFalse(EOF, 'EOF after opened non-empty dataset');
     close;
     CheckTrue(EOF);
     CheckTrue(BOF);