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 net.httpclient正则批量获取网页代码中的数值

Delphi 获取外网ip的函数

Delphi 为idhttp伪造session

在Delphi中简单的调用单元unit实例

我的Delphi开发经验谈

Delphi 程序获取传参

纯真ip数据库解析Delphi d10.1下正常使用

Delphi 遍历所有edit控件

Delphi中tlistview控件使用

Delphi 处理以逗号分隔的长字符串

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

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