* add missing initialization of the record count

git-svn-id: trunk@29185 -

packages/fcl-db/src/dbase/testdbf.pp

@@ -15,6 +15,7 @@ begin
   Assign(F,FN);
   Rewrite(F);
 //  SetTextBuf(F,Buf);
+  Count := 0;
   With TDBF.Create(Nil) do
     begin
     TableName:=TN;