Discussion :

[Artza]

Bonjour,

j'ai un soucie avec une ListBox. Je cherche à récupérer les index d'une sélection multiple. J'ai essayé

procedure TForm1.Button2Click(Sender: TObject);
var
I : Integer;
begin
for I := 0 to listbox2.Items.Count-1 do
begin
if ListBox2.Selected[I] then BlaBla....;
end;
end;

et il me dit: "Le type de l'expression doit-être BOOLEAN".

Avez-vous une solution.
Je suis sous delphi XE4, et je développe une appli sous firemonkey pour IOS.
Merci

[SergioMaster]

Bonjour,

Avec FMX c'est un peu différent d'une TListBox VCL , il faudra utiliser isSelected de l'item

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button2Click(Sender: TObject);
var
I : Integer;
begin
for I := 0 to listbox2.Items.Count-1 do
begin
if ListBox2.Items[i].isSelected then BlaBla....;
end;
end;

[Artza]

Merci pour votre réponse mais dans ce cas j'ai le message suivant:
'string' ne contient pas un membre nommé 'isSelected'.

En effet, listbox.items[i] renvoie un string et nom un item.

Par contre la solution est la suivante:

for I := 0 to listbox2.Items.Count-1 do
begin
if listbox2.ListItems[I].IsSelected then showmessage(listbox2.ListItems[I].StylesData['NUMVTE'].AsString);
end;

Si ça peut servir à d'autres.