bonjour

je désirerais supprimer un élément dans une listbox dont le texte correspondrait à un choix de l'utilisateur. la suppression fonctionne très bien pour n'importe quel élément mais pas pour le dernier.... quelqu'un aurait une idée? voilà mon code

      curseur := 0;
      deleted := false;
      while (curseur < listbox2.Count -1) and not(deleted) do
      begin
      if listbox2.Items.Strings[curseur]  = lenom then  // parcours de la listbox pour trouver l'élément à supprimer
          begin
               listbox2.Items.Delete(curseur);   //suppression dans la listbox
               deleted := true;
          end;
          inc(curseur,1);   //incrémentation du curseur pour passer à l'élément suivant
      end;

while (curseur <= listbox2.Count -1) and not(deleted) do

ou bien si tu préfères (car c'est la même chose  )

while (curseur < listbox2.Count ) and not(deleted) do // suppression du -1

Cordialement.

Tu as un petit problème avec Repeat until et While, mec...

Tu fais

while (curseur < listbox1.Items.Count)

ou

until (curseur < listbox1.Items.Count -1)

au choix

Bonne prog'

Désolé, WhiteHippo, je n'avais pas rafraîchi la page...
Mais je crois que ma réponse complète la tienne.

Bonne prog'

Houlala, je voulais écrire :

until (curseur = listbox1.Items.Count -1)

Sinon, ça va pas arrêter de boucler !...

Enfin, ça va jamais boucler, je voulais dire.
Désolé.
Mon problème actuel est que je suis sur 2 trucs à la fois, je crois que ça me court-circuite les neurones dédiés à Delphi.
Je me tire !

Je ne comprends pas bien s'il s'agit de supprimer toutes les occurences d'une chaîne saisie par l'utilisateur ou de supprimer la première occurrence trouvée !
Dans la deuxième hypothèse, il suffit de faire :

  with ListBox2.Items do
    if IndexOf(LeNom) <> -1 then
      Delete(IndexOf(LeNom));


Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

Lol Delphiprog, c'est toi qui a fait le plus simple... En revanche c'est pas optimisé je pense : il vaudrai mieu stocker l'index parcequ'il fait la recherche deux fois de suite et donc c'est deux fois plus long que la méthode au dessus...

neodelphi

merci à vous c nickel, je n'ai testé que la dernière solution donnée parce que la + courte et je n'ai que très peu de tps entre midi, enfin les autres devraient marcher aussi :)