Paradox 7 Tabelle dynamisch aus DB erstellen

[Christian18]

Zitat von SubData:

Poste doch mal den Code den du bisher hast

ok hier ist mein code:

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;
  for i:=1 to DM.TFelder.RecordCount do
    begin
      if
        DM.TFelderFeld.AsString='T'
      then
        begin
          DM.Table1.FieldDefs.Add(DM.TFelderFeld.AsString, ftString, DM.TFelderLaenge.AsInteger, false);
          exit;
        end;
      if
        DM.TFelderFeld.AsString='Z'
      then
        begin
          DM.Table1.FieldDefs.Add(DM.TFelderFeld.AsString, ftInteger, DM.TFelderLaenge.AsInteger, false);
          exit;
        end;
      if
        DM.TFelderFeld.AsString='D'
      then
        begin
          DM.Table1.FieldDefs.Add(DM.TFelderFeld.AsString, ftDate, DM.TFelderLaenge.AsInteger, false);
          exit;
        end;

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

  Close;
end;