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 ===

procedure TForm1.Button1Click(Sender: TObject);

begin

AddComboBox(ComboBox1.Items,'12345');

end;

推荐分享