Delphi 7 - 如何使用其标题从列表视图中删除项目

Question

我正在尝试删除基于标题的listview项目，但我找不到解决方案，我可以删除项目的唯一方法是使用索引：

listview1.Items.Delete (0);

有人可以帮我删除标题中的项目吗？

Answer 1

您可以使用类似的内容，尝试使用标题ListItem找到Item 2，并在找到时删除它：

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;

首先不需要您选择项目的替代方法是删除找到的项目Index：

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;

Answer 2

过程 TForm1.Button1Click(Sender: TObject); var LI: TListItem;开始 LI := ListView1.Selected;如果已分配（LI）然后开始 ListView1.Selected := LI; ListView1.DeleteSelected;结尾;结束;