Buscar por:

Copiando registros de uma tabela para outra

Código

Procedure TtableCopiaRegistro(Origem, Destino: Ttable); 

begin 

with TabelaOrig do 

begin 

{Inicia um contador para os campos da TabelaOrig} 

for i := 0 to FieldCount -1 do 

{Este if verifica se o campo da TabelaOrig é NULL, se for, atribui seu valor ao campo da TabelaDest} 

if not Fields[i].IsNull then 

TabelaDest.Fields[i].Assign(Fields[i]); 

end; {end with} 

end; //Este exemplo funcionará com todos tipos de campos se você tiver acabado de criar a TabelaDest.

Para criar um dado valor NULL : Fields[i].Clear