首页 > 代码库 > Treeview1列表拒绝添加重复信息
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)
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。