* Clear FieldDefs before reading them from stream

git-svn-id: trunk@12447 -

packages/fcl-db/src/base/bufdataset.pas

@@ -3023,6 +3023,7 @@ begin
     DatabaseError(SStreamNotRecognised);
 
   FldCount:=Stream.ReadWord;
+  AFieldDefs.Clear;
   for i := 0 to FldCount -1 do with TFieldDef.create(AFieldDefs) do
     begin
     Name := Stream.ReadAnsiString;