From 8f5e0c8d8139045a22bd16187b88ef043bd430ce Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Fri, 14 Apr 2006 19:54:52 +0000
Subject: [PATCH]  + moved InternalInitRecord from Clearbuffers to Resync

git-svn-id: trunk@3210 -
---
 fcl/db/dataset.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fcl/db/dataset.inc b/fcl/db/dataset.inc
index d109af9e37..c0f951d881 100644
--- a/fcl/db/dataset.inc
+++ b/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;