Paradox 7 Tabelle dynamisch aus DB erstellen

[Christian18]

Hallo,

ich bins nocheinmal.

ich habe jetzt mein Programm noch einmal getestet und festgestellt, dass es an folgenden code liegt:

Delphi-Quellcode:

      if
        DM.TFelder.FieldByName('Feld').AsString='T'
      then
        DM.Table1.FieldDefs.Add(DM.TFelderFeld.AsString, ftString, DM.TFelderLaenge.AsInteger, False);
      if
        DM.TFelder.FieldByName('Feld').AsString='I'
      then
        DM.Table1.FieldDefs.Add(DM.TFelderFeld.AsString, ftInteger, DM.TFelderLaenge.AsInteger, False);
      if
        DM.TFelder.FieldByName('Feld').AsString='D'
      then
        DM.Table1.FieldDefs.Add(DM.TFelderFeld.AsString, ftDate, DM.TFelderLaenge.AsInteger, False);

      DM.TFelder.Next;

PS: was habe ich hier alsch gemacht???

Mit freundlichen Grüßen

Christian18