Problema con duplicados

[ignasi]

Hola a tod@s,
Vereis tengo un problema con unas tablas FoxPro (dbf) y es que, por un error de programa, se han duplicado registros en la tabla y ahora tengo que borrar estos duplicados. Agradecería cualquier idea de como eliminar estos duplicados ya que con el método que he probado (ir comparando cada registro) se hace lentísimo. Si alguien tiene alguna idea agradezco cualquier ayuda.
Muchas gracias,
Ignasi

[sanxpue]

Una idea es :
Crear otra tabla igual eh ir preguntando

Código Delphi [-]
  While Not Table1.EoF Do
  Begin
     If Not Table2.FindKey('ID',Table1Id.AsInteger,[]) Then
       MeteEnTable2
     Table1.Next;
  End;

Otra si no quieres crear otra tabla entonces, los ordenas por el ID, por que si no los ordenas papantla tus hijos volan.. no sale

Código Delphi [-]
Procedure QuitaRepetidos;
Var
  Indice : Integer;
Begin
  Indice := 0;
  While Not Table1.EoF Do
  Begin
    If (Indice=0) Or (Table1Id.AsInteger <> Indice) Then
    Begin
      Indice := Table1Id.AsInteger;
      Table1.Next
    End
    Else
      Table1.Delete
  End;
End;