+ implemented TBufDataset.UpdateStatus (issue #6944)

git-svn-id: trunk@3683 -

fcl/db/bufdataset.inc

@@ -676,6 +676,18 @@ begin
   Result := FBRecordCount;
 end;
 
+Function TBufDataSet.UpdateStatus: TUpdateStatus;
+
+begin
+  Result:=usUnmodified;
+  if GetRecordUpdateBuffer then
+    case FUpdateBuffer[FCurrentUpdateBuffer].UpdateKind of
+      ukModify : Result := usModified;
+      ukInsert : Result := usInserted;
+      ukDelete : Result := usDeleted;
+    end;
+end;
+
 Function TBufDataset.Locate(const KeyFields: string; const KeyValues: Variant; options: TLocateOptions) : boolean;
 
 

fcl/db/db.pp

@@ -1561,6 +1561,7 @@ type
     procedure CancelUpdates; virtual;
     destructor Destroy; override;
     function Locate(const keyfields: string; const keyvalues: Variant; options: TLocateOptions) : boolean; override;
+    function UpdateStatus: TUpdateStatus; override;
     property ChangeCount : Integer read GetChangeCount;
   published
     property PacketRecords : Integer read FPacketRecords write FPacketRecords default 10;