delphi,foxpro,重新索引

Question

参考BDE的帮助，使用BDE的API函数：
DbiRegenIndex或者DbiRegenIndexes ，其区别在于第一个重建你指定的索引，而第二个重建所有的索引。具体的参数请阅读帮助。
使用BDE的API函数需要在Uses部分加入：
dbiTypes,dbiProc,DbiErrs单元（好象，记不太清了，反正到时你再自己查查语法是否出错 :)    procedure fDbiRegenIndex(Tbl: TTable; IndexName, TagName: string; IndexNum: Word);
begin
  Check(DbiRegenIndex(Tbl.DBHandle, nil, PChar(Tbl.TableName), nil, 
    PChar(IndexName), PChar(TagName), IndexNum));
end;或者
procedure fDbiRegenIndexes(TblName: TTable);begin
  Check(DbiRegenIndexes(TblName.Handle));
end