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使用ado读写excel文件

Delphi 调用win32 api操作串口

Delphi 动态给combobox赋值，从combobox中取值

Delphi中coinitialize作用

Delphi 的 tstringbuilder 可以完美实现jave ,c#的tstringbuilder功能

Delphi 控制memo1滚动条

Delphi 无法结束进程的程序

Delphi 文件占坑法过360查杀

Delphi 10.3 控件遮挡 webbrowser

Delphi使用spcomm没办法触发receivedata

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

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