Delphi 自动把ComboBox控件的内容里没有的内容加入列表中

本文整理自网络，侵删。

 //==== 自动把ComboBox控件的内容里没有的内容加入列表中 =====！
procedure AddComboBox(item: TStrings; Str: string);const TempMax = 30;var  i, a: integer;begin  if str = '' then exit;  a := item.IndexOf(Str);  if a > 0 then begin    item.ｉｎｓｅｒｔ(0, Str);    //cb.ItemIndex := 0;    item.ｄｅｌｅｔｅ(a + 1);  end;
  if a = -1 then begin    item.ｉｎｓｅｒｔ(0, Str);    for i := item.Count - 1 downto tempMax do    begin      item.ｄｅｌｅｔｅ(i);    end;  end;
end;//== END ===
procedure TForm1.Button1Click(Sender: TObject);beginAddComboBox(ComboBox1.Items,'12345');end; 

相关阅读 >>

Delphi sysutils.isdelimiter - 判断字符串的某个位置是不是指定的字符串

Delphi xe7中使用json

Delphi 安卓蓝牙动态权限

Delphi保存读取utf-8的文本文件

Delphi messagebox 和 messagedlg用法

Delphi 获取文件大小方法

Delphi md5加密算法

Delphi转换 tcolor 到 html 颜色串

Delphi 获得指定进程的id号

Delphi android windows ios通用获取程序版本

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