Copiar registros en RXMemoryData

[Carmelo Cash]

Hola Foro:

Necesito pasar algunos campos de un RXMemoryData a otro, para hacer esto hago un loop y guardo campo por campo.
quería saber si es posible No pasar campo por campo, solamente para que quede más prolijo. gracias.

Adjunto el código que estoy utilizando.



procedure TEdiniFrm.SeleccionarSeccion;
begin
RxMDSecciones.Active:=True;
RxMDSecciones.EmptyTable;
with RxMDCompleto do begin
first;
while not eof do begin
if RxMDCompleto.FieldByName('Tipo').AsInteger=1 then begin
RxMDSecciones.Append;
RxMDSecciones.FieldByName('ID_INI').AsInteger:= RxMDCompleto.FieldByName('ID_INI').AsInteger;
RxMDSecciones.FieldByName('ID_Seccion').AsInteger:= RxMDCompleto.FieldByName('ID_Seccion').AsInteger;
RxMDSecciones.FieldByName('Orden_Seccion').AsInteger:= RxMDCompleto.FieldByName('Orden_Seccion').AsInteger;
RxMDSecciones.FieldByName('Orden_Item').AsInteger:= RxMDCompleto.FieldByName('Orden_Item').AsInteger;
RxMDSecciones.FieldByName('Tipo').AsInteger:= RxMDCompleto.FieldByName('Tipo').AsInteger;
RxMDSecciones.FieldByName('Campo').AsString:= RxMDCompleto.FieldByName('Campo').AsString;
RxMDSecciones.FieldByName('Valor').AsString:= RxMDCompleto.FieldByName('Valor').AsString;
RxMDSecciones.FieldByName('Comentario').value:= RxMDCompleto.FieldByName('Comentario').value;
RxMDSecciones.Post;
end;
next;
end; // while
end; // with
end;