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

冒泡排序延时请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。系统会自动删除debug和release目录

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；