edit1.text := Listbox1.selecteditems?.text?

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:D

Un truc comme ceci

Code:

---

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

---

Pensez à utiliser la touche F1 prochaine fois :P

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

Code:

---

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.

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"
???:oops:

Citation:

---

Envoyé par 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"
???:oops:

---

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)

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

Citation:

---

Envoyé par kikica

J'ai trouvé! Il fallait rajouter 0:
listbox1.Items[0+listbox1.ItemIndex], car itemindex était à -1!
Pour une fois 0+-1 donne 0...!!! :yaisse2: :mouarf: :king: :lol:
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 8O , 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:

---

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');

---

Euhhh...
T'a raison Malatar... alors que j'étais au bord de la prix Nobel pour mathematique... Dommage!
Merci!!! :mouarf: :king: :yaisse2: :mrgreen: :oops: