一个需要高手帮助的问题！ComboBox中输入文字匹配问题！

Question

当用户在ComboBox中输入文字(或字母）时，下拉框列表会动态地显示与ComboBox框中文字最匹配的项目

Answer 1

在OnChange中怎么写啊！请教！

Answer 2

思路：for i:=0 to combobox1.items.count-1 do
begin
 if   pos(combobox1.text,combobox1.items[i])>0 then
         combobox1.text:=combobox1.items[i].string;
                  
end;

Answer 3

上午出去有点事了，
     在onchange中写
         for i:=0 to combobox1.items.count-1 do
           if pos(combobox1.text,combobox1.items[i]) > 0 then
             combobox1.text:=combobox1.items[i];
     如果条目多的话，可改进一下，自己想一下吧
                  

Answer 4

procedure TForm1.ComboBox1Change(Sender: TObject);
var i:integer;
begin
         for i:=0 to combobox1.items.count-1 do
           if pos(combobox1.text,combobox1.items[i]) > 0 then
             combobox1.text:=combobox1.items[i];
end;