Fórum Copiar Registro #204359

Segue a procedure para duplicar registro.

1o.Você cria uma matriz com os dados da tabela Origem.

procedure TFrm.DuplicaReg;
var i : Integer;
MatDuplic : Variant;
begin
MatDuplic := VarArrayCreate([0,DM1.TbOrigem.FieldCount-4],VarVariant);
for i := 1 to (DM1.TbOrigem.FieldCount-4) do
MatDuplic[i] := DM1.TbOrigem.Fields[i].Value;
end;

2o. Você cria for para gravar na tabela Destino

begin
DM1.TbDestino.Append;
for i := 1 to (DM1.TbDestino.FieldCount-4) do
DM1.TbDestino.Fields[i].Value := MatDuplic[i];
DM1.TbDestino.Post;
end;

Espero ter ajudado.