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 md5加密字符串

Delphi中datetimepicker控件同时输入日期和时间

Delphi 防止刷新时闪烁的终极解决办法

Delphi与进程、窗口句柄、文件属性、程序运行状态

Delphi 删除internet临时文件

Delphi xe5 unicodestring的由来

Delphi 检查当前用户权限

Delphi 扫二维码并识别

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

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