Error Key Violation al copiar tablas

[Mathom]

Entonces cómo podría hacer para copiar una tabla entera machacando resultados??, ya que la aplicación tendrá otro botón que será restaurar la copia, es decir, la acción inversa (de la tabla de seguridad a la original).

[Mathom]

Quizás creando una tabla nueva??...respetaría las claves??

[[maeyanes]]

O eliminando los registros de la tabla destino antes de hacer la copia...

[ContraVeneno]

o tal vez:

 insertar
 si hay error de violación de clave entonces
  actualizar

[Mathom]

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....

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

[Mathom]

no hagais caso, me he dejado el begin. Lo siento mea culpa....

[Mathom]

Perdón por el error anterior. Ya me funciona, también se me había olvidado poner que las tablas fuesen adelantando un registro. Al final para aquel que le interese el código ha quedado del siguiente modo:

procedure TFormPrincipal.Realizarcopia1Click(Sender: TObject);
begin
  while not DM.TblDepartamentos_seg.Eof do
          DM.TblDepartamentos_seg.Delete;
  DM.TblDepartamentos_seg.Refresh;
  while not DM.TblDepartamentos.Eof do
  begin
    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;
    DM.TblDepartamentos_seg.Next;
    DM.TblDepartamentos.Next;
  end;
end;

Gracias por vuestra ayuda.