Hallo Christian,
jetzt habe ich verstanden, was du willst.
Ein Fehler ist, dass du die eine Schleife benutzt (for i:=1 to ...) und dann noch mit First und next durch die Datenmenge läufst.
Delphi-Quellcode:
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;
So sollte es funktionieren.