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.