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.Insert(0, Str);
    //cb.ItemIndex := 0;
    item.Delete(a + 1);
  end;

  if a = -1 then begin
    item.Insert(0, Str);
    for i := item.Count - 1 downto tempMax do
    begin
      item.Delete(i);
    end;
  end;

end;
//== END ===

procedure TForm1.Button1Click(Sender: TObject);
begin
AddComboBox(ComboBox1.Items,'12345');
end;
 

相关阅读 >>

vclzip控件的简单使用

Delphi的idhttp的基本用法

Delphi ini文件操作 tinifile、tmeminifile

Delphi webbrowser不能复制粘贴问题的解决办法

Delphi 遍例一个外部程序中所有的类名

firemonkey listbox 的几个事件：拖动，点击，长按

Delphi controls 属性与继承 tshape 类的小练习

ttreeview的两个事件ondragdrop、ondragover 实现自动拖放功能

Delphi转换 tcolor 到 html 颜色串

Delphi webbrowser控件属性介绍

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

转载请注明出处：木庄网络博客 » Delphi 自动把ComboBox控件的内容里没有的内容加入列表中