实例——使用revertrecord方法恢复在缓冲区中被删除的记录.txt

来自「Delphi 7组件应用实例 书籍语言： 简体中文 书籍类」· 文本 代码 · 共 26 行

procedure UndeleteAll(DataSet: TBDEDataSet)；
begin
  with DataSet do
  begin
  UpdateRecordTypes := [rtDeleted]；
  {指定缓冲区中可视记录的类型，此处是只有删除的记录才是可视的}
   try
    First
    //将指针移动数据集的开始位置
    while not EOF do
    //当删除的记录未恢复完时，反复循环
      begin
      RevertRecord；
      //恢复删除的当前记录
      Next；
      //将记录指针移到下一条记录上
      end；
   finally
    UpdateRecordTypes := [rtModified, rtInserted, rtUnmodified]；
    //指定缓冲区中可视记录的类型，将已修改的，插入的和未修改记录设为可视状态
   End；
  End；
End；