indexwerte der markierten einträge einer listview ausgeben

[agm65]

hi leute, folgendes problem ..ich habe eine listview mit multiselect jetzt möchte ich die index werte aller markierten einträge haben, aber wie ?

Delphi-Quellcode:

for i := 0 to listview.items.count - 1 do
begin

 showmessage(inttostr( listviewpm.Selected.index ));
end;

bringt immer nur den ersten ?

[Bernhard Geyer]

Delphi-Quellcode:

for i := 0 to listview.items.count - 1 do
begin
  if listview.items[i].Selected then
    ShowMessage(IntToStr(i));
end;

[agm65]

jopp...danke dir !