copiar registros

[Osorio]

Hola todos:

Estoy pasando registros de una tabla a otra.

lo estoy haciendo con este procedimiento:

Código Delphi [-]
                
        Data.First;
        while not Data.Eof do
        begin
                ADOTable.Append;
                for i := 0 to Data.FieldCount - 1 do
                begin
                        ADOTable.Fields[i].Value:= data.Fields[i].Value;
                end;
                Data.Next;
        end;

pero me encontre con esto:

Código Delphi [-]
ADOTable.AppendRecord(datos)

Ya probe AppendRecord y en verdad funciona, lo que no se es como pasar el registro de Data que es mi dataset para que quede almacenado en la variable Datos .

De lograrlo me ahorraria el ciclo FOR.


gracias.