ListBoxAddItems() 不重复添加Edit1

{不重复添加Edit1.text到列表框中}
// 调用 ListBoxAddItems(Edit1,ListBox1);


procedure ListBoxAddItems(Edit:TEdit;ListBox:TListBox);
begin
   if ListBox.Items.IndexOf(Edit.Text)<0 then
   begin
       ListBox.Items.Add(Edit.Text);
       Edit.SetFocus;
   end;
end;

 





posted @ 2012-07-26 08:49  XE2011  阅读(264)  评论(0编辑  收藏  举报