SavePoint為TClientDataSet設定一個還原點

var
   iDataPoint: Integer;

 

 

  //設定一個數據還原點
  if dsMx.State in [dsInsert, dsEdit] then
    dsMx.Post;
  iDataPoint := dsMx.SavePoint;

 

 

  //恢復到還源點
  dsMx.SavePoint := iDataPoint;

說明:
  1.dsMx 為 TClientDataSet;
  2.如果ApplyUpdates後就不能再還原了;
  3.KingTech多個地方用到;