Problem beim Erstellen einer Paradox Tabelle

[marabu]

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