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:
begin
Memo1.Lines.Add(FDelta2.Fields[0].AsString);
end;
TUpdateKind.ukInsert:
begin
Memo1.Lines.Add(FDelta2.Fields[0].AsString);
end;
TUpdateKind.ukModify:
begin
Memo1.Lines.Add(FDelta2.Fields[0].AsString);
FDelta2.NextStatus;
Memo1.Lines.Add(FDelta2.Fields[0].AsString);
end;
else Dialogs.ShowMessage('error');
end;
FDelta2.Next;
end;
end;