Discussion :

[kikica]

Bonjour,
J'ai une question facile, mais je n'arrive pas trouver la solution: J'ai 3 listbox sur une Form1. J'ai 1 edit1 sur cette Form1. Dans chaque listbox j'ai plusieurs enregistremments. Je souhaite pouvoir faire ceci: lorsque je selectionne un enregistremment (item) dans chaque listbox, ensuite dans un boutton j'ai le côde du genre: edit1.text:= listbox1.selecteditems.text+' '+listbox2.selecteditems.text+' '+listbox3.selecteditems.text;

Mais ça ne marche pas

Merci de votre aide

[portu]

Un truc comme ceci

Code :

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

1
2
 
Edit1.Text := ListBox1.Items[ListBox1.ItemIndex]+'-'+ListBox2.Items[ListBox2.ItemIndex]+'-'+ListBox3.Items[ListBox3.ItemIndex]

Pensez à utiliser la touche F1 prochaine fois

[philnext]

Je n'utilise pas es ListBox mais ce n'est pas plutot un truc dans le genre :

Code :

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

1
2
3
4
5
 
for i := 0 to (FileListBox1.Items.Count - 1) do 
  try
    if FileListBox1.Selected[i] then 
      sTemp := sTemp + ' ' + FileListBox1.Items.Strings[i])

à faire pour chaque ListBox bien sûr.

[kikica]

Ca marche pas...
La solution de Portu me parraît simple et très bonne, mais j'ai une erreur: "Indice de liste hors limite"
???

[Rayek]

Ca marche pas...
La solution de Portu me parraît simple et très bonne, mais j'ai une erreur: "Indice de liste hors limite"
???

C'est que tu essaies de lire un des éléments en dehors de la plage de la listebox.
Par exemple ta listbox à 10 éléments et tu essaies de lire le 11em, d'où l'erreur.

Rappel: les éléments d'une listbox vont de 0 à N-1 (N étant le nombre d'éléments enregistrés dans la listbox)

[kikica]

J'ai trouvé! Il fallait rajouter 0:
listbox1.Items[0+listbox1.ItemIndex], car itemindex était à -1!
Pour une fois 0+-1 donne 0...!!!
Merci!!

[Rayek]

J'ai trouvé! Il fallait rajouter 0:
listbox1.Items[0+listbox1.ItemIndex], car itemindex était à -1!
Pour une fois 0+-1 donne 0...!!!
Merci!!

euh ... si ItemIndex est à -1, c'est qu'il n'y a aucune sélection de faites dans une des listbox.
De plus 0+-1 = 0 , y a un gros problème la.

En reprenant le code de portu + ajout de sécurité tu devrais avoir un code de ce style

Code :

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

1
2
3
4
5
6
7
8
9
 
if ((ListBox1.ItemIndex <> -1) and 
    (ListBox2.ItemIndex <> -1) and
    (ListBox3.ItemIndex <> -1)) then
  Edit1.Text := ListBox1.Items[ListBox1.ItemIndex]+
                   '-'+ListBox2.Items[ListBox2.ItemIndex]+
                   '-'+ListBox3.Items[ListBox3.ItemIndex]
else
  Showmessage('Vous devez sélectionner au moin un élément par liste');