TListView列表拒绝添加重复信息

TListView防重复添加

最新推荐文章于 2025-04-24 11:19:46 发布

CGGAO

最新推荐文章于 2025-04-24 11:19:46 发布

阅读量79

点赞数

CC 4.0 BY-SA版权

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

本文介绍了一种在TListView中防止添加重复项的方法，通过两种不同的实现方式来确保列表的每一项都是唯一的。

//TListView列表拒绝添加重复信息

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  if (Trim(Edit1.Text)<>'') then
  begin
    for i := 0 to ListView1.Items.Count-1 do
    if Trim(Edit1.Text) = Trim(ListView1.Items[i].Caption) then
    begin
      Exit;
    end;
  end;
  ListView1.Items.Add.Caption:=Edit1.Text;
end;

function ItemExist(Text:string;ListView:TListView):Boolean;
var
  i: Integer;
begin
  Result:=False;
  if (Trim(Text)<>'') then
  begin
    for i := 0 to ListView.Items.Count-1 do
    if Trim(Text) = Trim(ListView.Items[i].Caption) then
    begin
      Result:=True;
      Exit;
    end;
  end;
  Result:=False;
end;

 
procedure TForm1.Button6Click(Sender: TObject);
begin
  if not ItemExist(Edit1.Text,ListView1) then
      ListView1.Items.Add.Caption:=Edit1.Text;
end;