+ added TBufDataset.ChangeCount (bug 6947)

git-svn-id: trunk@3670 -

fcl/db/bufdataset.inc

@@ -602,6 +602,13 @@ begin
   result := FRecordSize;
 end;
 
+function TBufDataset.GetChangeCount: integer;
+
+begin
+  result := length(FUpdateBuffer);
+end;
+
+
 procedure TBufDataset.InternalInitRecord(Buffer: PChar);
 
 begin

fcl/db/db.pp

@@ -1523,6 +1523,7 @@ type
   protected
     procedure SetRecNo(Value: Longint); override;
     function  GetRecNo: Longint; override;
+    function GetChangeCount: integer; virtual;
     function  AllocRecordBuffer: PChar; override;
     procedure FreeRecordBuffer(var Buffer: PChar); override;
     procedure InternalInitRecord(Buffer: PChar); override;
@@ -1560,6 +1561,7 @@ type
     procedure CancelUpdates; virtual;
     destructor Destroy; override;
     function Locate(const keyfields: string; const keyvalues: Variant; options: TLocateOptions) : boolean; override;
+    property ChangeCount : Integer read GetChangeCount;
   published
     property PacketRecords : Integer read FPacketRecords write FPacketRecords default 10;
   end;