我在網路上發現那段程式碼,正是我需要解開的問題,但是我不知道如何運用那段程式碼,求各位大大解答,謝謝您。
dbf檔在第28byte記錄著是否有index,將其設為0就不會去找index了 function disableIndex(fname:string):integer;
//attempts disable .mdx by clear .dbf's byte 28
// return 1 if it has intex file
var
F:File of byte;
old,value :byte;
begin
value := 0;
try
assignFile(F, fname);
except
showmessage('can not open file:' fname);
end;
Reset(F);
Seek(F, 28);
read(F, old);
if old = 1 then begin
Seek(F, 28);
Write(F, value);
result := 1;
end
else
result := 0;
CloseFile(F);
end;