recuperer les elements selectionnés de mon TListBox

Bonjour,
J'ai utilisé un TListBox afin de permettre une selection multiple.
Maintenant, je veux recuperer les elements selectionnés pour les inserer dans BD (interbase).
Comment recuperer les items selectionnés dans un TStringList afin que je puisse mettre dans ma BD.

Merci bien à vous!

Salut

Pour savoir si un item est sélectionné, utilise ListBox1.Selected[Index]. Tu n'as qu'a passer ta liste dans une boucle for et regarder ceux qui sont sélectionnés !

Bonne chance ;)

Code:

---

1 2 3 4 5 6

for i := 0 to MaListe.Items.Count - 1 do begin if (MaListe.Selected[i]) then MaStringList.Add(MaListe.Items.Strings[i]); end;

---

Edit : Oops, devancé.

cette ligne du code genere une erreur d'execution " violation d'acces à l'adresse ..."

Code:

---

MaStringList.Add(MaListe.Items.Strings[i]);

---

Voici mon code

Code:

---

1 2 3 4 5 6 7

for i := 0 to ListBox1.Items.Count - 1 do begin if (ListBox1.Selected[i]) then MaStringList.Add(ListBox1.Items.Strings[i]) end; DataModule1.T_courrierI.FieldValues['DESTINATAIRE']:= MaStringList.Text;

---

Merci bien de me corriger!

Tu as bien créé ta TStringList ?

voici la definition de ma variable:

Code:

---

var MaStringList :TStringList;

---

.

Salut

La question de Mick était:

Citation:

---

Envoyé par mick605

Tu as bien créé ta TStringList ?

---

Autrement dit, cette ligne est-elle bien présente dans ton code ?

Code:

---

MaStringList := TStringList.Create;

---

Il faut impérativement créer ta liste avant de pouvoir la manipuler.
Sans oublier de faire un Free quand tu n'as plus besoin de cette liste.

@+ Claudius.

Il est vrai que j'ai écrit ce code à la volée mais comme le précise Claudius, si tu ne cree pas au préalable ta stringlist ça ne risque pas de fonctionner.

Allez, je suis de bonne humeur aujourd'hui

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure RechSelection; var MaStringList : TStrings; begin MaStringList := TStringList.Create; try for i := 0 to MaListe.Items.Count - 1 do begin if (MaListe.Selected[i]) then MaStringList.Add(MaListe.Items.Strings[i]); end; DataModule1.T_courrierI.FieldValues['DESTINATAIRE']:= MaStringList.Text; finally if (Assigned(MaStringList)) then FreeAndNil(MaStringList); end; end;

---

Normalement le "if Assigned(MaStringList)" est inutile dans ce cas là mais je l'ai rajouté juste au cas où.

Edit : Pour faire bien, j'aurais même pu catcher une éventuelle exception sur l'utilisation de ton module de donnée.

ok, vraiment beaucoup de merci;

l'insertion du contenu du TListBox marche bien. Maintenant si plusieurs elements selectionnés sont inserrés dans ma BD, et que j'applique une requete le resultat de la requete ne donne pas à chaque fois.
voici la ligne qui insere

Code:

---

DataModule1.T_courrierI.FieldValues['DESTINATAIRE']:= MaStringList.Text;

---

l'insertion de plusieurs destinataires na pas de problème.
QUand je veux afficher les informations par destinataire alors il ya probleme car seul le premier destinataire est pris en compte par la requete.
Par exemple si dans la liste box j'ai selectionné "toto" et "tata" quand je fais la requete selon le destinataire c'est "toto" qu'il prend en compte.
la requete

Code:

---

select * from courrier where destinataire= :dest

---

si l'utilisateur entre "toto" il affiche l'enregistrement mais s'il entre "tata" il n'affiche rien.
En fait c'est le premier element de la liste qu'il prend en compte.

Merci bien de m'aider!