delphi 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;
 

相关阅读 >>

Delphi tadoquery 中文使用说明

Delphi完美的线程注入和卸载

Delphi windows 编程[3] - 学习窗体生成的过程三

Delphi 数据库获取所有用户名

Delphi tstreamwriter tstreamreader 流操作3

Delphi 泛型排序器 tcomparer

Delphi 拷贝edit编辑框中的内容

Delphi 获取ie网址收藏夹

Delphi 获取时间日期

Delphi 获取星期几

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi ListBoxAddItems() 不重复添加Edit1