VAR
FDelta2: TDeltaDataSet;
begin
Memo1.Lines.Clear;
if not Assigned(FDelta2) then
begin
FDelta2 := TDeltaDataSet.Create(DataSetBrokerBZSJJ1.DATASET);
end;
FDelta2.First;
while not FDelta2.Eof do
begin
Case FDelta2.UpdateKind of
TUpdateKind.ukDelete: Dialogs.ShowMessage('this record is Deleted');
TUpdateKind.ukInsert: Dialogs.ShowMessage('this record is Inserted');
TUpdateKind.ukModify:
begin
Memo1.Lines.Add(FDelta2.Fields[1].AsString);
FDelta2.NextStatus ;
Memo1.Lines.Add(FDelta2.Fields[1].AsString);
end;
else Dialogs.ShowMessage('error');
end;
FDelta2.Next ;
end;
end;