Treeview1列表拒绝添加重复信息

function ItemExist(Text:string;TreeView:TTreeView):Boolean;

var

  i: Integer;

begin

  Result:=False;

  if (Trim(Text)<>'') then

  begin

    for i := 0 to TreeView.Items.Count-1 do

    if Trim(Text) = Trim(TreeView.Items[i].Text) then

    begin

      Result:=True;

      Exit;

    end;

  end;

  Result:=False;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  if not ItemExist('Edit1.Text',TreeView1) then

     TreeView1.Items.AddChild(Treeview1.Selected,'Edit1.Text');

end;

来自为知笔记(Wiz)

转载于:https://www.cnblogs.com/xe2011/p/3876289.html