我想在我的列表视图中获取所有项目和子项目,但我得到的只是“TlistItem”
这是我的代码:
procedure TFrameAnalyzer.AddEntry(opcode:word;data:Array of byte;direction:byte);
begin
MessageBox(0,PChar(sListView1.Items.Item[4].ToString),'',0);
end;
如何以字符串形式获取项目名称及其 2 个子项目的名称?
我想在我的列表视图中获取所有项目和子项目,但我得到的只是“TlistItem”
这是我的代码:
procedure TFrameAnalyzer.AddEntry(opcode:word;data:Array of byte;direction:byte);
begin
MessageBox(0,PChar(sListView1.Items.Item[4].ToString),'',0);
end;
如何以字符串形式获取项目名称及其 2 个子项目的名称?
您无法获取项目的名称,因为它没有名称。它有一个Caption
虽然,和一个SubItems
类型的属性TStrings
。所有这些都可以在 Delphi 文档 BTW 中轻松找到。调查TListItem
和TListItems
上课。
所以你可以做类似的事情
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;
省略了所有错误处理,如果不首先检查索引是否有效,您当然不应该以这种方式访问数组属性。