在LISTVIEW中选中多行，怎么样遍历被选中的行？

Question

如题/

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:=0 to ListView1.Items.Count-1 do
  begin
    if ListView1.Items.Item[i].Selected then
      ShowMessage(ListView1.Items.Item[i].Caption);
  end;
end;

Answer 2

if ListView1.Selected<>nil then
    ShowMessage(lv1.Selected.Caption);

Answer 3

//不好意思, 没看清是多行下面的代码更好
procedure TForm1.btn2Click(Sender: TObject);
var
  Item:TListItem;
begin
  Item:=lv1.Selected;
  while Item<>nil do begin
    ShowMessage(Item.Caption);
    Item:=lv1.GetNextItem(Item, sdAll, [isSelected]);
  end;
end;