Loop over select items in listbox?

[Trenatos]

Greetings!

I'm new to Lazarus and Pascal. (Though not to programming in general.)
I'm trying to figure out how to loop over selected items in a listbox with multiple selects.

I can pick single items but I can't figure out how to loop over the list.
The purpose will be to save the output to a database, but for testing I'm just trying to populate a second, empty listbox.

I've tried a bunch of things but I'm grasping in the dark, so I figured it's time to ask for help.

[Blaazen]

Hi,
this writes out all selected items:

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  for i:=0 to ListBox1.Items.Count-1 do
    if ListBox1.Selected[i] then writeln(ListBox1.Items[i]);
end;

[Trenatos]

Thank's Blaazen, it works perfectly.

[ted]

thank you Blaazen.
Just what I needed !