如何打开一个没有MDX索引的DBF文件

实际上，在DBF文件的第28个字节表明了DBF文件是否有索引文件，因此，只要把DBF文件的第28个字节修改一下即可。

procedure TForm1.Button1Click(Sender: TObject);

var

 f: file of byte;

 b: byte;

begin

 if OpenDialog1.execute then

 begin

   assignFile(f, OpenDialog1.FileName);

   reset(f);

   seek(f, 28);

   b := RadioGroup1.ItemIndex; {0 = no MDX; 1 = use MDX}

   write(f, b);

   closefile(f);

 end;

 OpenDialog1.FileName := '*.dbf'; {reset the filter}

end;