Listbox, selected items abfragen , FMX Variante

[mmw]

Hallo,

so scheint es zu funktionieren.

Delphi-Quellcode:

var i:integer;

begin

ListBox_Filenames.MultiSelect:=True;

for i := 0 to ListBox_Filenames.Items.Count - 1 do
  begin
   if (ListBox_Filenames.ListItems[i].IsSelected) then
     begin
      Label_statbar.text := ListBox_Filenames.ListItems[i].text;
      Memo1.Lines.Add(ListBox_Filenames.ListItems[i].text);
     end;
  end;

Gruß