如何在列表视图中获取项目和子项目?

时间:2009-07-18 18:46:53

标签: delphi vcl listviewitem

我想在listview中获取所有项目和子项目,但我得到的只是“TlistItem”

这是我的代码:

procedure TFrameAnalyzer.AddEntry(opcode:word;data:Array of byte;direction:byte);
begin
  MessageBox(0,PChar(sListView1.Items.Item[4].ToString),'',0);
end;

如何将项目的名称作为字符串以及它的2个子项目的名称?

1 个答案:

答案 0 :(得分:5)

您无法获取该项目的名称,因为它没有名称。它有一个CaptionSubItems属性TStrings。所有这些都可以在Delphi文档BTW中找到。查看TListItemTListItems类。

所以你可以做类似

的事情
procedure TFrameAnalyzer.AddEntry(opcode:word;data:Array of byte;direction:byte);
var
  Item: TListItem;
  s: string;
begin
  Item := sListView1.Items.Item[4];
  s := Item.Caption + #13#10
    + '  ' + Item.SubItems[0] + #13#10
    + '  ' + Item.SubItems[1];
  MessageBox(0, PChar(s), nil, 0);
end;

省略了所有错误处理,如果不首先检查索引是否有效,你肯定不能以这种方式访问​​数组属性。