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;
 

相关阅读 >>

Delphi 多函数形式的多线程同步-线程执行顺序

Delphi 保存导出或加载资源文件

Delphi sha1加密函数

Delphi 如何编写需要启动参数的Delphi程序

Delphi 一个高效的正整数排序函数

Delphi中最小化其他程序及所有程序窗口最小化

Delphi驱动结束进程

Delphi system 中的数学函数

Delphi 系统服务状态获取管理员用户名

Delphi real控件 rm格式的播放器

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

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