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
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
2 réponses
appuye sur suppr, ca devrai être bon :)
nan je rigole :))
tes doublons, ce sont koi exactement...?
www.zangdar.fr.st
nan je rigole :))
tes doublons, ce sont koi exactement...?
www.zangdar.fr.st
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
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!
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!