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

Delphi 7组件应用实例 书籍语言： 简体中文 书籍类型： 程序设计 授权方式： 免费软件 书籍大小： 105 KB

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；