Hallo
Ich habe diesen Fehler auch.
Delphi-Quellcode:
with Table2
do begin
FieldDefs.Clear;
IndexDefs.Clear;
end;
{Get list of all field types in Filename (ASCII), store in Fields}
EnumerateFieldTypes(Filename, Fields);
{Write schema file}
AssignFile(Fil, Copy(Filename,1,Pos('
.',Filename)-1) + '
.SCH');
Durch das hin und herkopieren von( with Table2 do...)
hinter den Aufruf (EnumerateFieldTypes...)
wird meiner Ansicht nach klar, daß der Fehler in der Routine (EnumerateField...) liegt.
Aber den Fehler zu beseitigen, fehlt mir jede Kenntnis.