在delphi中调用.dbf数据库.发现在.dbf中逻辑删除的记录在delphi中不可见,用什么命令可以恢复这些记录(50分)

在delphi中调用.dbf数据库.发现在.dbf中逻辑删除的记录在delphi中不可见,用什么命令可以恢复这些记录

另外就是如何彻底删除这些被逻辑删除的记录，急啊！

知道？

很急啊，下午4点前必须弄好，谁能帮我啊？

直接数据操作：

recall ----> 恢复逻辑删除的记录；
pack ----> 彻底清除逻辑删除的记录

use bde;

恢复删除：DbiUndeleteRecord
彻底删除：DbiPackTable
下面为彻底删除的函数，恢复删除未用过，DELPHI中有说明。

// Pack a Paradox or dBASE table
// The table must be opened execlusively before calling this function...
function PackTable(Table: TTable): Boolean;
var
Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
begin
Table.Close;
try
Table.Exclusive := True;
Table.Open;
// Get the table properties to determine table type...
Check(DbiGetCursorProps(Table.Handle, Props));
// If the table is a Paradox table, you must call DbiDoRestructure...
if (Props.szTableType = szPARADOX) then begin
// Blank out the structure...
FillChar(TableDesc, sizeof(TableDesc), 0);
// Get the database handle from the table's cursor handle...
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
// Put the table name in the table descriptor...
StrPCopy(TableDesc.szTblName, Table.TableName);
// Put the table type in the table descriptor...
StrPCopy(TableDesc.szTblType, Props.szTableType);
// Set the Pack option in the table descriptor to TRUE...
TableDesc.bPack := True;
// Close the table so the restructure can complete...
Table.Close;
// Call DbiDoRestructure...
Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, False));
end
else
// If the table is a dBASE table, simply call DbiPackTable...
if (Props.szTableType = szDBASE) then
Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, True))
else
// Pack only works on PAradox or dBASE; nothing else...
raise EDatabaseError.Create('Table must be either of Paradox or dBASE ' +
'type to pack');
Result := true;
except
Result := false;
end;
end;

多人接受答案了。