supprimer dernier élément listboxRésolu

Question

bonjour



je d&#233;sirerais supprimer un &#233;l&#233;ment dans une listbox dont le texte
correspondrait &#224; un choix de l'utilisateur. la suppression fonctionne
tr&#232;s bien pour n'importe quel &#233;l&#233;ment mais pas pour le dernier....
quelqu'un aurait une id&#233;e? voil&#224; 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'&#233;l&#233;ment &#224;
supprimer

          begin

              
listbox2.Items.Delete(curseur);   //suppression dans la
listbox

               deleted := true;

          end;

         
inc(curseur,1);   //incr&#233;mentation du curseur pour passer &#224;
l'&#233;l&#233;ment suivant

      end;

cs_Delphiprog · Accepted Answer

S'il n'y a plus que &#231;a &#224; faire, je te laisse le soin de le faire 


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

WhiteHippo · Answer

while (curseur <=
 listbox2.Count -1) and not(deleted) do

ou bien si tu pr&#233;f&#232;res (car c'est la m&#234;me chose  )

while (curseur < listbox2.Count ) and not(deleted) do // suppression du -1

Cordialement.

japee · Answer

Tu as un petit probl&#232;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'

japee · Answer

D&#233;sol&#233;, WhiteHippo, je n'avais pas rafra&#238;chi la page... 

Mais je crois que ma r&#233;ponse compl&#232;te la tienne.



Bonne prog'

japee · Answer

Houlala, je voulais &#233;crire :



until (curseur = listbox1.Items.Count -1)




Sinon, &#231;a va pas arr&#234;ter de boucler !...

japee · Answer

Enfin, &#231;a va jamais boucler, je voulais dire.

D&#233;sol&#233;.

Mon probl&#232;me actuel est que je suis sur 2 trucs &#224; la fois, je crois que &#231;a me court-circuite les neurones d&#233;di&#233;s &#224; Delphi.

Je me tire !

cs_Delphiprog · Answer

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.

neodelphi · Answer

Lol Delphiprog, c'est toi qui a fait le plus simple... En revanche c'est pas optimis&#233; 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&#233;thode au dessus...

neodelphi

scoder · Answer

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

Supprimer dernier élément listbox

9 réponses

Votre réponse

Discussions similaires