Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure MaClasse.SupprimerDoublonsDansListeTriee(var AMaListe: TStringList); var iCompteur: Integer; begin { on trie la liste } if not AMaListe.Sorted then AMaListe.Sort; { on parcourt la liste, si elle contient au moins 2 éléments } if AMaListe.Count > 1 then begin { on commence le parcourt par le 2è élément } iCompteur := 1; while iCompteur < AMaListe.Count do { on compare l'élément courant avec le précédent } if AMaListe.Strings[iCompteur] = AMaListe.Strings[iCompteur-1] then AMaListe.Delete(iCompteur) else Inc(iCompteur); end; end;