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;

来自为知笔记(Wiz)

附件列表