+ moved InternalInitRecord from Clearbuffers to Resync

git-svn-id: trunk@3210 -

fcl/db/dataset.inc

@@ -162,8 +162,6 @@ Procedure TDataset.ClearBuffers;
 begin
   FRecordCount:=0;
   FactiveRecord:=0;
-  // Make sure that the active record is 'empty', ie: that all fields are null
-  InternalInitRecord(ActiveBuffer);
   FCurrentRecord:=-1;
   FBOF:=True;
   FEOF:=True;
@@ -1812,6 +1810,8 @@ begin
 {$endif}
       // nothing found, invalidate buffer and bail out.
       ClearBuffers;
+      // Make sure that the active record is 'empty', ie: that all fields are null
+      InternalInitRecord(ActiveBuffer);
       DataEvent(deDatasetChange,0);
       exit;
       end;