Treeview1列表拒绝添加重复信息

时间：2014-07-29 21:41:52 阅读：252 评论：0 收藏：0 [点我收藏+]

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;

Result:=False;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

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

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

end;

原文地址：http://www.cnblogs.com/xe2011/p/3876289.html

踩

(0)

评论一句话评论（0）