ListView删除选中的多项目

最新推荐文章于 2018-11-21 18:34:21 发布

转载最新推荐文章于 2018-11-21 18:34:21 发布 · 194 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xe2011/p/3876251.html

本文提供了一个用于Delphi的实用函数，该函数能够实现ListView中多项选择的批量删除功能。通过遍历ListView的items集合并检查每个item是否被选中来执行删除操作。

//ListView删除选中的多项目
function DeleteMultSelItems(ListView:TListView):Boolean;
var
  I: Integer;
begin
  Result:=False;
  if ListView.Selected =nil then Exit;
  for i := ListView.items.count-1 downto  0 do
  begin
    if ListView.items[i].selected then
      begin
        ListView.items[i].Delete;
        Result:=True;
      end;
  end;
end;