Delphi Combobox 数据库取值

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));