我正在尝试删除基于标题的 ListView 项目,但我找不到解决方案,删除项目的唯一方法是使用索引:
listview1.Items.Delete (0);
谁能帮我通过标题删除项目吗?
最佳答案
您可以使用类似这样的方法,它会尝试查找标题为 Item 2
的 ListItem
,如果找到则将其删除:
procedure TForm1.Button1Click(Sender: TObject);
var
LI: TListItem;
begin
LI := ListView1.FindCaption(0, 'Item 2', False, True, False);
if Assigned(LI) then
begin
ListView1.Selected := LI;
ListView1.DeleteSelected;
end;
end;
不需要您首先选择项目的替代方法是通过其索引
删除找到的项目:
procedure TForm1.Button2Click(Sender: TObject);
var
LI: TListItem;
begin
LI := ListView1.FindCaption(0, 'Item 2', False, True, False);
if Assigned(LI) then
ListView1.Items.Delete(LI.Index);
end;
关于Delphi 7 - 如何使用标题从 ListView 中删除项目,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/19427876/