Ya estoy aquí, he estado probando y me compila pero después al intentar ejecutarlo se me cuelga, os indico el código a ver si sabeis que pasa...fijo que es un error en un while y no lo veo....
Código:
procedure TFormPrincipal.Realizarcopia1Click(Sender: TObject);
begin
while not DM.TblDepartamentos_seg.Eof do
DM.TblDepartamentos_seg.Delete;
while not DM.TblDepartamentos.Eof do
DM.TblDepartamentos_seg.Insert;
DM.TblDepartamentos_seg.FieldByName('Nombre').AsString := DM.TblDepartamentos.fieldbyname('Nombre').AsString;
DM.TblDepartamentos_seg.FieldByName('Cod_dep').AsString := DM.TblDepartamentos.fieldbyname('Cod_dep').AsString;
DM.TblDepartamentos_seg.Post;
DM.TblDepartamentos_seg.Refresh;
end;
Gracias por vuestra ayuda