Browse Source

* Set the FFirstRecBuf of the default index to nil when the dataset is closed. (Fixes test TestExceptOnsecClose)

git-svn-id: trunk@10347 -
joost 17 years ago
parent
commit
7a114d46c1
1 changed files with 1 additions and 0 deletions
  1. 1 0
      packages/fcl-db/src/base/bufdataset.pas

+ 1 - 0
packages/fcl-db/src/base/bufdataset.pas

@@ -699,6 +699,7 @@ begin
       FCurrentRecBuf := FCurrentRecBuf[IndNr].next;
       FreeRecordBuffer(pc);
       end;
+    FFirstRecBuf:=nil;
 {$ENDIF}
     end;