Delphi 压缩、反删除dBase或FoxPro数据表实例的源码.rar

Delphi 压缩、反删除dBase或FoxPro数据表实例的源码，PackTable过程给单个.dbf数据表作优化，undelete过程给单个.dbf数据表反删除，BatchPackTable给一个目录及其子目录下的所有.dbf数据库优化，Batchundelete给一个目录及其子目录下的所有.dbf数据库反删除，部分代码： 　　Check(DbiGetCursorProps(table.Handle, CProps)); 　　 //取得数据表的属性 　　if (StrIComp(CProps.szTableType, szDBASE) <> 0) then 　　 raise EDBEngineError.Create(DBIERR_NOTSUPPORTED); 　　 //如果不是Dbase或Foxpro则引起EDBEngineError 异常 　　 rslt:=DbiValidateProp(hDBIObj(table.Handle), curSOFTDELETEON, True); 　　 //可否设置软删除 　　if (rslt = DBIERR_NONE) then 　　 Check(DbiSetProp(hDBIObj(table.Handle), curSOFTDELETEON, Longint(true))); 　　 //设置为可以软删除 　　 Check(DbiGetCursorProps(table.Handle, CProps)); 　　 //更新数据表的属性 　　if (CProps.bDeletedOn = False) then 　　 raise EDatabaseError.Create('数据表没有软删除标志！'); 　　 //取得当前的记录位置 　　 bm:=table.GetBookmark; 　　 //将游标移动到第一个记录以前。注意不是Table.First! 　　 Check(DbiSetTobegin(table.handle)); 　　 //不断移动，直到到数据表的最后记录 　　while (DBIGETNEXTRECORD(table.handle,dbinolock,nil,nil)=DBIERR_NONE) do