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


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


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;
:D