Paradox 7 Tabelle dynamisch aus DB erstellen

[Christian18]

achso einz vieleicht noch hier einmal ein aktueller quellcode:

Delphi-Quellcode:

procedure TFFFeld.BitBtn4Click(Sender: TObject);
  var i : Integer;
begin
  // Datenbank Dynamisch erstellen
  DM.Table1.Active:=False;
  DM.Table1.DatabaseName:=ExtractFilePath(Application.ExeName) + 'dynamischeDB\';
  DM.Table1.TableName:=DM.TFormulareFormular.AsString;
  DM.Table1.TableType:=ttParadox;

  DM.Table1.FieldDefs.Clear;
  DM.TFelder.First;

while NOT DM.TFelder.Eof do
begin
  if DM.TFelderFeld.AsString='T' then
      DM.Table1.FieldDefs.Add(DM.TFelderFeld.AsString, ftString, DM.TFelderLaenge.AsInteger, false)
  else if DM.TFelderFeld.AsString='Z' then
      DM.Table1.FieldDefs.Add(DM.TFelderFeld.AsString, ftInteger, DM.TFelderLaenge.AsInteger, false)
  else if DM.TFelderFeld.AsString='D' then
      DM.Table1.FieldDefs.Add(DM.TFelderFeld.AsString, ftDate, DM.TFelderLaenge.AsInteger, false);

   DM.TFelder.Next;
end;
DM.Table1.CreateTable;

  DM.Table1.CreateTable;
end;