利用ClientDataSet的XMLData成员是数据的XML表达，可以非常直观的观察在执行撤消恢复等操作的细节。帮助我们区分几种撤消与恢复操作的不同。
请注意下图中的 CHANGE_LOG的值ROW RowState项和程序标题ChangeCount在执行不同操作时的变化。
***************************************************************************************************************************
具体操作:
***************************************************************************************************************************
DBGrid1.DataSource->DataSource1.DataSet->ClientDataSet1.ProviderName->DataSetProvider1.DataSet->
SQLDataset1.SQLConnection->SQLConnection1具体数据库(这里连接的是oracle中的PERSONS表);
SQLDataSet1.CommandText:=SELECT * PERSONS;ClientDataSet1.Active:=true;
DBNavigator1.DataSource->DataSource1。
*************************************************************************************
主要代码:
*************************************************************************************
procedure TForm3.Button2Click(Sender: TObject);begin //未POST前，取消操作 ClientDataSet1.Cancel; ViewXMLData;end;procedure TForm3.Button3Click(Sender: TObject);begin //取消当前条记录的操作 //会操作CHANGE_LOG，并减少ChangCount计数 ClientDataSet1.RevertRecord; ViewXMLData;end;procedure TForm3.Button4Click(Sender: TObject);begin //可连续撤消操作，直到 CHANGE_LOG为空，并减少ChangCount计数 ClientDataSet1.UndoLastChange(true); ViewXMLData;end;procedure TForm3.Button5Click(Sender: TObject);begin //post后撤消操作,CHANGE_LOG会被清空，ChangCount被置0 //一只撤消本地的全部操作 ClientDataSet1.CancelUpdates; ViewXMLData;end;procedure TForm3.Button6Click(Sender: TObject);begin //合并修改日志，合并后CHANGE_LOG会被清空，ChangCount被置0 //合并后UNDO功能无效 ClientDataSet1.MergeChangeLog; ViewXMLData;end;procedure TForm3.Button7Click(Sender: TObject);begin //设置还原点 tempPoint := ClientDataSet1.SavePoint; ViewXMLData;end;procedure TForm3.Button8Click(Sender: TObject);begin //恢复还原点 ClientDataSet1.SavePoint := tempPoint; ViewXMLData;end;procedure TForm3.ClientDataSet1AfterPost(DataSet: TDataSet);begin ViewXMLData;end;procedure TForm3.ViewXMLData;begin Text := Format('ChangeCount: %d', [ClientDataSet1.ChangeCount]); // uses XMLDoc单元 Memo1.Text := FormatXMLData(ClientDataSet1.XMLData);end;procedure TForm3.Button1Click(Sender: TObject);begin ViewXMLData;end; 由于录制软件非常吃内存，不能录制更详细，有兴趣的可以自己做更细致的测试。
这次由于录制软件吃光了内存PC直接死机，导致第四次写代码了-_-!，提醒下大家有重要的修改还是多保存或打打IDE的History功能吧。
后来又研究了下我用的这款录制软件，发现全是截的一张张BMP图片，我就呵呵了！反正免费将就用吧-_-。