Listview如何遍历选中的行？

[yuanrong]

比方说，我选中的第二行、第四行
我想得到这两行的序号，也就是2和4，如何得到？

[huojiehai]

var
lp: integer;
begin
for lp := 0 to listview1.items.count - 1 do
if listview1.items[lp].selected then
showmessage(intostr(lp)) ;
end;