Discussion :

[Bleuarff]

'lut

J'ai beau chercher, je ne vois pas comment récuperer l'index de tous les élements sélectionnés d'une listBox avec multiSelect et Extendedselect activés. La propriété Count donne bien le nombre d'items sélectionnés, mais comment accéder à ceux qui n'ont pas le focus ?

[Cl@udius]

Salut,

Il faut que tu examines la propriété Selected.

Je te donne un cours exemple:

Code :

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

1
2
3
4
5
6
7
8
 
begin
  for i :=0 to(ListBox1.Items.Count -1)do begin
    if ListBox1.Selected[i]then 
      // Elément sélectionné
    else
      // Elément non sélectionné
end;

Voilou !
@+

[Frank]

Exemple de lecture d'une listbox

Code :

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

1
2
3
4
5
6
procedure Tfrm_testD2006.Bt_fermetureClick(Sender: TObject);
  var i:integer;
begin
  for I := 0 to lbtest.Count - 1 do begin
    showmessage(lbtest.Items.ValueFromIndex[i]);
  end;

[Bleuarff]

merci bien, ça marche nickel.

[dacid]

On est obligés de parcourir toute la liste pour avoir les élements sélectionnés ?

Je ne trouve pas ca très optimisé...

[Fandyz]

Ce post est un peu vieux mais j'aimerais attirer l'attention sur une faille de la solution proposée par Cl@udius :

parcourir une longue liste de valeurs couplé à une évaluation à chaque itération est très malsain pour les ressources d'un ordinateur !!!

donc vivement une propriété encapsulée dans le ListBox à cet effet.

[Andnotor]

parcourir une longue liste de valeurs couplé à une évaluation à chaque itération est très malsain pour les ressources d'un ordinateur !!!

Ce qui veut dire ?

[Dr.Who]

Il n'y a aucun problème avec la solution proposée car de toute façon c'est la seule solution possible, parcourir pour savoir qui est à True ou pas.

Ce serait plus lourd de maintenir une liste des indexs sélectionnés/désélectionnés et dégraderait les performances globale de la liste...

Tant qu'on ne touche pas à l'aspect de la liste, les boucles de ce genre sont très rapides à s’exécuter.
Il faudra par contre faire appel à Items.BeginUpdate/EndUpdate si l'on inverse les état ou que l'on modifie les chaines de la liste.

On peu par contre maintenir un compteur d'itération dans la boucle pour break dés qu'on dépasse le nombre de SelectCount !

Code :

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

1
2
3
4
5
6
7
8
9
10
for N := 0 to ListBox1.Count-1 do
begin
  if ListBox1.Selected[N] then
    // 
  else
    //
  inc(I);
  if I >= ListBox1.SelectCount then
    break;
end;

Il ne faut pas oublier que l'on vas parcourir une List de booléens et non une liste de chaines !