Recopier un enregistrement

var i:integer;
begin
table2.edit;
for i:=0 to table1.fieldscounts-1 do
begin table2.fieldsvalues[i].assign(table1.fieldvalues[i ]); end;
table2.post;
end;