Discussion :

[Abou Zar]

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!

[mick605]

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

[popo]

Code :

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

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é.

[Abou Zar]

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

Code :

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

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

Voici mon code

Code :

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

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!

[mick605]

Tu as bien créé ta TStringList ?

[Abou Zar]

voici la definition de ma variable:

Code :

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

var MaStringList :TStringList;

.

[Cl@udius]

Salut

La question de Mick était:

Tu as bien créé ta TStringList ?

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

Code :

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

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.

[popo]

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 :

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

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.

[Abou Zar]

ok, vraiment beaucoup de merci;

[Abou Zar]

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 :

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

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 :

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

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!