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 在vcl中显示一个非激活状态的窗口

Delphi xe8 支持md5

Delphi savedialog覆盖询问

Delphi 获取北京时间

Delphi 使用openjdk进行Delphi android开发

Delphi ttabcontrol控件使用

Delphi 给gmail发送邮件

Delphi写的服务程序在服务管理器中显示“描述”

Delphi 动态设置屏幕分辨率

Delphi 切换开关 toggleswitch1

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

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