怎样解决打开一个DBF表时的"Index not found.."的错误

当 你 创 建 一 个 DBF 表 时 ， 如 果 使 用 了 MDX 格 式 的 索 引 文 件 ， 那 么 DBF 表 的 表 头 中 的 某 个 字 节 就 自 动 被 设 置 了 一 个 标 志 ， 当 你 下 次 试 图 重 新 打 开 这 个 DBF 表 的 时 候 ， 数 据 引 擎 会 自 动 识 别 这 个 标 志 ， 如 果 此 标 志 为 真 ， 则 数 据 引 擎 将 试 图 打 开 相 应 的 MDX 文 件 ， 当 相 应 的 MDX 文 件 不 存 在 时 ， 错 误 就 产 生 了 。 知 道 了 问 题 产 生 的 原 因 ， 解 决 方 案 也 就 有 了 ： 我 们 只 需 将 那 个 标 志 字 节 （ 其 实 就 是 第 28 个 字 节 ） 设 为 零 就 行 了 。 下 面 为 示 范 代 码 ：

unit Fixit;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids;

type
  TForm1 = class(TForm)
    Table1: TTable;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

const
  TheTableDir = 'c:\temp\';
  TheTableName = 'animals.dbf';

procedure RemoveMDXByte(dbFile: String);
{  这 个 procedure 的 参 数 是 一 个 文 件 名 ， 它 将 对 这 个 文 件 的 文 件 头 }
{  进 行 处 理 ， 以 确 保 它 不 在 需 要 MDX }
const
  Value: Byte = 0;
var
  F: File of byte;
begin
  AssignFile(F, dbFile);
  Reset(F);
  Seek(F, 28);
  Write(F, Value);
  CloseFile(F);
end;

procedure TForm1.Button1Click(Sender: TObject);
{  此 procedure 将 试 图 打 开 一 个 表 ， 如 果 相 应 的 .MDX 文 件 不 存 在  }
{  将 对 表 文 件 进 行 处 理 并 尝 试 再 次 打 开  }
begin
  try
    {  为 表 设 置 路 径  }
    Table1.DatabaseName := TheTableDir;
    {  设 置 表 的 名 字  }
    Table1.TableName := TheTableName;
    {  尝 试 打 开 表  }
    Table1.Open;
  except
    on E:EDBEngineError do
      {  如 果 MDX 文 件 未 发 现 ， 将 返 回 以 下 错 误 信 息  }
      if Pos('Index does not exist. File', E.Message)>0 then begin
        {  询 问 用 户 是 否 继 续  }
        MessageDlg('MDX file not found.  Attempting to open
                    without index.', mtWarning, [mbOk], 0);
        {  从 表 头 中 移 去 相 应 标 志  }
        RemoveMDXByte(TheTableDir + TheTableName);
        {  再 次 向 Button1 发 送 被 按 下 的 消 息 ， 本 procedure 再 次 被 执 行  }
        PostMessage(Button1.Handle, cn_Command, bn_Clicked, 0);
      end;
  end;
end;

end.