怎样对PARADOX表重建索引？

Question

try:先备份,再删掉所有索引文件,最后重新建立使用

Answer 1

try:首先Backup一下,然后删除那些后缀不为.db和.mb的文件,然后用Database Desktop重新为数据库定义索引既可

Answer 2

uses
 .... ... DbiTypes, DbiProcs, DbiErrs;
procedure ReindexTable(Table: TTable);
var
  WasActive: Boolean;
  WasExclusive: Boolean;
begin
  with Table do begin
    WasActive := Active;
    WasExclusive := Exclusive;
    DisableControls;
    try
      if not (WasActive and WasExclusive) then Close;
      try
        Exclusive := True;
        Open;
        Check(dbiRegenIndexes(Handle));
      finally
        if not (WasActive and WasExclusive) then begin
          Close;
          Exclusive := WasExclusive;
          Active := WasActive;
        end;
      end;
    finally
      EnableControls;
    end;
  end;
end;

Answer 3

很简单，查看BDE API 函数都有，并有详细例子

Answer 4

我看错了,我以为是paradox库坏了,header crash...