Народ, помогите плиз. У меня прога производит контроль правильности названий и типов полей в указанной папке во всех DBF-файлах. Фсе эти файлы бес проблем открываюцца в фоксе, а при работе проги вылетает ошибка: Corrupt table/index header. Из за чиво это, подскажите плиз. Заранее спасибо.
ЗЫ. На фсякий случай код:
flist:=Table1.FieldDefs;
flist_orig:=Table_Original.FieldDefs;
fcount:=Table1.FieldCount;
fcount_orig:=Table_Original.FieldCount;
for i:=0 to (fcount_orig-1) do
begin
fl:=FALSE;
for j:=0 to (fcount-1) do
if flist[j].Name=flist_orig[i].Name then
begin
fl:=TRUE;
if flist[j].DataType<>flist_orig[i].DataType then
begin
WriteToLog('<p>Выявлено несоответствие в типе поля: '+flist[j].Name+'</p>');
end;
if flist[j].Size<>flist_orig[i].Size then
begin
WriteToLog('<p>Выявлено несоответствие в размерности поля '+flist[j].Name+'</p>');
end;
end;
if not(fl) then
begin
WriteToLog('<p><font color="#FF0000" face="Arial, Helvetica, sans-serif"><strong>Отсутствует поле </strong></font>'+flist_orig[i].Name+'</p>');
end;
end;
memo1.Lines.LoadFromFile('LOG.html');