Browse Source

* Fixed a mem-leak

git-svn-id: trunk@930 -
joost 20 years ago
parent
commit
18b080f47e
1 changed files with 1 additions and 1 deletions
  1. 1 1
      fcl/db/bufdataset.inc

+ 1 - 1
fcl/db/bufdataset.inc

@@ -73,7 +73,7 @@ begin
   FOpen:=False;
   FOpen:=False;
   CancelUpdates;
   CancelUpdates;
   for i := 0 to FBRecordCount-1 do FreeRecordBuffer(FBBuffers[i]);
   for i := 0 to FBRecordCount-1 do FreeRecordBuffer(FBBuffers[i]);
-  If FBRecordCount > 0 then ReAllocMem(FBBuffers,0);
+  If FBBufferCount > 0 then ReAllocMem(FBBuffers,0);
   FBRecordcount := 0;
   FBRecordcount := 0;
   FBBuffercount := 0;
   FBBuffercount := 0;
   FBCurrentrecord := -1;
   FBCurrentrecord := -1;