Hallo,
durch die dynamische Erstellung deiner Tabelle hast du nicht die Ursache, sonder das Symptom erfolgreich bekämpft. Grundsätzlich hätte auch der erste Ansatz funktionieren können:
Delphi-Quellcode:
procedure TabWartungDefinieren(tbl: TTable);
begin
with tbl do
begin
TableType := ttParadox;
with FieldDefs do
begin
Clear;
Add('Nummer', ftString, 30);
Add('Gruppe', ftString, 30);
Add('Tatigkeit', ftString, 100);
Add('IO', ftBoolean);
Add('Mangel', ftBoolean);
Add('Erledigt', ftBoolean);
end;
with IndexDefs do
begin
Clear;
Add('', 'Nummer;Gruppe;Tatigkeit', [ixPrimary]);
end;
end;
end;
procedure TabWartungErzeugen(tbl: TTable; fn: TFileName);
begin
with tbl do
begin
// Wegen Test auf Kommentar gesetzt ...
// DatabaseName := ExtractFileDir(fn);
// TableName := ChangeFileExt(ExtractFileName(fn), '');
TableName := fn;
CreateTable;
end;
end;
Wenn die Tabellen den gleichen Aufbau haben, dann genügt beim Ansatz über eine extern erzeugte Tabelle die einmalige Definition der Struktur.
Freundliche Grüße