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;

 





你可能感兴趣的:(listbox)