如何得到listview多行的Caption？

Question

我吧Listview的多选打开了，如何得到选择的行的Caption?谢谢！

Answer 1

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

Answer 2

procedure GetCaption(TreeName: TTreeView);
var
  I: Integer;
  strList: TStrings;
  oNode : TTreeNode ;
begin
  strList := TStringList.Create;
  try
    for I := 0 to TreeName.Items.Count - 1 do
      begin
        if oNode = TreeName.Selected then
          begin
            strList.Add(oNode.Text);
          end;
      end;
  finally
    strList.Free;
  end;
end;

Answer 3

这段才是正确的,上面的那个少写了一句话procedure GetCaption(TreeName: TTreeView);
var
  I: Integer;
  strList: TStrings;
  oNode : TTreeNode ;
begin
  strList := TStringList.Create;
  try
    for I := 0 to TreeName.Items.Count - 1 do
      begin
        oNode := TreeName.Items[i];
        if oNode = TreeName.Selected then
          begin
            strList.Add(oNode.Text);
          end;
      end;
  finally
    strList.Free;
  end;
end;

Answer 4

还以为是listbox呢listview没有用过呢
三楼的可能可以

Answer 5

这个可以 3楼 4楼不知道写的什么  别人问的是ListView

Answer 6

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

Answer 7

procedure   TForm1.ListView1SelectItem(Sender:   TObject;   Item:   TListItem;   
      Selected:   Boolean);   
  begin   
  if   selected   then   
  showmessage(item.Caption);   
  end;

Answer 8

你没有看清我的问题，我的意思是，在listview选了多个，比如，点一个按钮，吧选择项目的item的caption用showmessage显示出来，怎么做？

Answer 9

var
  i:integer;
begin
 with listview1 do
 for i:=0 to items.count-1  do
   if items[i].selected then  这里应该用到 Items[i].checked的判断
     showmessage(items[i].Caption);
end;