Copiar un registro de una tabla a otra.

[Caronte]

Hola, necesitaba copiar un registro completo desde una tabla a otra y no he encontrado una funcion o procedure que lo haga ¿Existe?

Si no es así, lo que yo he hecho (y funciona) es el código que pongo a continuación:

Código Delphi [-]
//copia un registro (previamente debe haberse filtrado la tabla1).//

procedure TForm1.Button1Click(Sender: TObject);
VAR
F: INTEGER;
begin
    Table2.Append;
    FOR F:=0 TO TABLE1.FieldCount-1 DO
          Table2.Fields.Fields[F].Value:=Table1.Fields.Fields[F].Value;
    Table2.Post;
end;

[[BlueSteel]]

disculpa.. y la pregunta era?

[Caronte]

Pues la pregunta era si hay algo más directo, del estilo de:
Table2.record[0]:=Table1.record[0];

[[BlueSteel]]

Hola Caronte

Bueno, en realidad el metodo que mencionas encuentro que es el más corto, siempre y cuando las 2 tablas tengan los mismos atributos (Campos y Formato del Campo)

Hace un tiempo trabajé con tablas planas y necesite realizar traspaso de una trabla a otra, pero el código que utilice era mucho más largo...

El código es bueno y simple, no creo que se pueda resumir más aún...

Salu2