combobox1.items.clear;
adotable1.open;
adotable1.first;
with not adotable1.eof do
begin
combobox1.items.addobject(Fieldbyname('name').asstring,TObject(Fieldbyname('id').Asinteger));
next;
end;
取值
proid:=Iinteger(combobox1.items.Objects[combobox1.itemindex]));
proname:=combobox1.text;
定位到某个字段或数据：
1、设置AutoComplete属性位ture即可；
2、combobox1.itemindex:=combobox1.items.indexof(trim(edit1.text));