Hi Overburn
Delphi-Quellcode:
...
Table1.First;
while NOT Table1.EOF do begin
For i := 0 to Table1.Fieldcount-1 do begin
TableXXX.Create; //Falls für jeden Datensatz
.... //eine eigene Tabelle benötigt wird
Table.XXX.FieldbyNumber[0] := Table1.FieldByNumber[i];
Table.XXX.Post //Wenn wirklich jedes Feld in der neuen
end; //Tabelle ein eigener Datensatz sein soll
Table.XXX.Close;
Table.XXX.Free;
if NOT Table1.EOF then
Table1.Next;
...
Sei dir aber im klaren, dass damit die Performance im tiefsten Keller ist, je mehr Datensätze du hast. Im übrigen ist der Code nicht getestet. Insbesondere habe ich die Handhabung nach dem Createn von Table.XXX übersprungen.
Gruss
Delbor