Dédoublonner une liste ?

**MaTHieU_** · 10/08/2006, 15h08

Bonjour,

Je cherche une méthode pour dédoublonner une liste, avez-vous déjà fait ce genre de chose ?

Faut-il trier la liste par ordre alphabetique puis traiter les lignes une par une pour en supprimer les doublons ?

Existe-t-il une méthode plus optimisée ?

Merci,
Mathieu

**edam** · 10/08/2006, 15h23

comment charge tu ta liste?

**MaTHieU_** · 10/08/2006, 15h32

Bonjour,

"Liste.txt" chargée dans une TListBox via LoadFromFile.

Merci,
Mathieu

**Rayek** · 10/08/2006, 15h43

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure Dedoublonnage(var lst : TStringList);
var
  iEncours : Integer;
begin
  // on commence au dernier element de ta liste
  iEncours := lst.count -1;
  while iEncours >= 0 do
  begin
    while lst.indexof(lst.Strings[iEncours]) <> iEncours do
    begin
      lst.delete(lst.indexof(lst.strings[iEnCours]);
      // décale de 1 vu qu'on a supprimer un element avant
      dec(iEnCours); 
    end;
    // on passe a l'item précédent
    dec(iEnCours);  
  end;
end;