TClientDataSet[16]: 用計算字段顯示 UpdateStatus

　TClIEntDataSet.UpdateStatus: TUpdateStatus;

　　TUpdateStatus = (usUnmodified, usModifIEd, usInserted, usDeleted);

　　測試圖:

　　相關代碼:

uses　TypInfo;　
　
procedure　TForm1.ClientDataSet1CalcFIElds(DataSet:　TDataSet);　
begin　
　ClientDataSet1.FIEldByName('UpdateStatus').AsString　:=　
　　GetEnumName(TypeInfo(TUpdateStatus),　Ord(ClIEntDataSet1.UpdateStatus));　
end;　
　
procedure　TForm1.Button1Click(Sender:　TObject);　
begin　
　ClIEntDataSet1.MergeChangeLog;　
end;　
　
procedure　TForm1.Button2Click(Sender:　TObject);　
begin　
　ClIEntDataSet1.Delete;　
end;　
　
procedure　TForm1.Button3Click(Sender:　TObject);　
begin　
　ClIEntDataSet1.UndoLastChange(True);　
end;