delphi如何彻底删除foxpro中的数据?(50分)

  • 主题发起人 主题发起人 w98657
  • 开始时间 开始时间
W

w98657

Unregistered / Unconfirmed
GUEST, unregistred user!
在foxpro里面需要用pack命令才能彻底删除的,但delphi如何操作,谢谢!
 
interface

uses
SysUtils, Windows, Classes, DBTables, DbiTypes, DbiProcs, DbiErrs;

function PackDbfTable(DbfTable: TTable): Boolean;

implementation

function PackDbfTable(DbfTable: TTable): Boolean;
var
errResult: DBIResult;
begin
try
{ 如果不是以独占方式,操作失败 }
if (not DbfTable.Exclusive) or (not DbfTable.Active) then
begin
Result := False;
exit;
end;
{ 进行删除操作 }
errResult := DbiPackTable(DbfTable.dbHandle, DbfTable.handle, nil, nil, True);
{ 根据返回结果,返回成功与否的标志 }
Result := errResult = DBIERR_NONE;
except
Result := False;
end;
end;
 
接受答案了.
 
后退
顶部