Copiar registros en RXMemoryData
 

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;

91 mensajes y seguimos así con los TAG's...:(

Puedes buscar si RxMDSecciones posee algun método tipo Assign o Clone.
La otra opción es recorrer los fields con un blucle FOR en lugar de uno a uno utilizanfo la propiedad Fields (y un índice) en lugar de FieldByName.

Gracias
 

Gracias Neftali, quedó así, y aprendí a usar los Tags.

Hay algo como los Tags para el código en el programa?
(please no me verdugueen):)

Código Delphi [-]
procedure  TEdiniFrm.CargarSecciones;
var
i:Integer;
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;
        for i := 0 to RxMDCompleto.FieldCount - 1 do begin
          RxMDSecciones.Fields[i].Value:= RxMDCompleto.Fields[i].Value;
        end;
        RxMDSecciones.Post;
      end;
      next;
    end;    // while
  end;    // with
 RxMDSecciones.SortOnFields('Orden_Seccion');
end;

Ahora te quedaron perfectas.... Ambas cosas ;)