1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal
Sujet Précédent Sujet Suivant

ListBox ???

Fab - 18 août 2001 à 13:24
cs_Dark Revan
Messages postés
23
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
15 avril 2006
 - 19 janv. 2005 à 23:13
Salut ,

Je possede une listbox avec des doublons et je voudrais savoir comment faire pour parcourir la list et supprimer les lignes des doublons .

Merci ,

2 réponses

Réponse 1 / 2
Zangdar
3 déc. 2001 à 17:03
appuye sur suppr, ca devrai être bon :)

nan je rigole :))
tes doublons, ce sont koi exactement...?

www.zangdar.fr.st
0
Réponse 2 / 2
cs_Dark Revan
Messages postés
23
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
15 avril 2006
19 janv. 2005 à 23:13
Bon je vais essayer de t'aider mais je garantie pas que le code soit bon à 100%.
Je sais que le post est très vieux mais la réponse peut en aider quelqu'un.
Voici ce que tu peux faire (prend en compte que la Listbox s'appelle ListCh):

Var
NoLg1,
NoLg2: integer;

NoLg1 := 0;
NoLg2 := NoLg1 + 1;
ListCh.Items.BeginUpdate;

While NoLg1 <= (ListCh.Items.Count - 2) do
Begin
While (NoLg2 <= (ListCh.Items.Count - 1)) do
Begin
If ListCh.Items.Strings[NoLg1] = ListCh.Items.Strings[NoLg2] then
Begin
ListCh.Items.Delete(NoLg2)
else
Inc(NoLg2);
end;
end;
Inc(NoLg1);
NoLg2 := NoLg1 + 1;
End;

ListCh.Items.EndUpdate

Ça devrait marcher!
0