Discussion :

[sondo]

Bonjour,

Je veux comparer le contenue de deux listbox. Si une ligne de la ListBox1 = ListBox2, la ligne de la LitsBox1 est supprimé. J'ai fais ceci mais il n' ya qu'une seule ligne de la ListBox1 qui est supprimé :

Code :

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

1
2
3
4
5
6
 
for i := 0 to ListBox1.Items.Count - 1 do
    begin
       if ListBox1.Items.IndexOf(ListBox2.Items[I]) > -1 then
       ListBox1.Items.Delete(i);
    end;

Merci de m'aider à comprendre.

[sat83]

Si tu souhaite effectuer une boucle sur ListBox1.Count tout en modifiant le nombre d'enregistrement, part plutot de la fin en revenant vers 0.

[sondo]

Salut sat83,

Je ne comprend pas trop ce que que tu veux dire. Peux-tu faire un exemple avec mon code?. Merci.

[sat83]

Code :

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

1
2
3
4
5
  for i := ListBox1.Items.Count - 1 downto 0  do
  begin
       if ListBox1.Items.IndexOf(ListBox2.Items[i]) > -1 then
       ListBox1.Items.Delete(i);
  end;

[sondo]

J'ai fais comme tu as dit :

Code :

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

1
2
3
4
5
6
 
for i := ListBox1.Items.Count -1 downto 0 do
                   begin
                     if ListBox1.Items.IndexOf(ListBox2.Items[I]) > -1 then
                     ListBox1.Items.Delete(i);
                   end;

mais il il y' a une exception EStringListError : indice de liste hors limite(10).

[Charly910]

Bonjour,

c'est surement parce que Listbox2 a moins d'éléments que ListeBox1 ?

Charly