TStringList

Bonjours,

J'ais placé le code suivant dans une TStringList :

Code:

Code:

---

1 2 3 4 5 6 7 8 9

CREATE TABLE FICHIERCLIENT ( CLIENT CHAR(50), NUMCLIENT INTEGER, CLIENT CHAR(50), NUMCLIENT CHAR(50), Famille CHAR(50), test CHAR(50), );

---

J'aimerais pouvoir faire une recherche de tous les champs en doubles et les suprimer.
Quelqu'un aurrait il une idée ?
Il faut savoir que cette liste peut atteindre 30 lignes.

D'avance merci pour votre aide.

Cordialement,

Pourquoi ne pas utiliser une table paradox à la place ?
Après, une simple requête SQL suffirait.

:roll: :wink:

Une solution simple serait de recopier ta liste dans une autre en verifiant pour chaque element ajoute , qu'il n'existe pas encore dans la nouvelle.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var ls_bis : TStringList; ... ls_bis := TStringList.Create; try for i := 0 to ls.Count-1 do begin s := ls[i]; if ls_bis.Pos(s) >= 0 then ls_bis.Add(s); end; ls.Clear; ls.AddStrings(ls_bis); finally ls_bis.Free; end;

---

Une solution simple serait de recopier ta liste dans une autre en verifiant pour chaque element ajoute , qu'il n'existe pas encore dans la nouvelle. Ensuite tu recopie la nouvelle dans l'ancienne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure Nettoyer; var ls_bis : TStringList; begin ls_bis := TStringList.Create; try for i := 0 to ls.Count-1 do begin s := ls[i]; if ls_bis.Pos(s) >= 0 then ls_bis.Add(s); end; ls.Clear; ls.AddStrings(ls_bis); finally ls_bis.Free; end; end;

---