ComboBox1中当选中ComboBox1的某一个时知道表中另一个字段是什么信息！

Question

请教你一个问题：我想用把一个表中段信息写在ComboBox1中当选中ComboBox1的某一个时知道表中另一个字段是什么信息！
例：字段名   a         b
    记录1　 001       aaaaa
    记录2　 002       bbbbb
    记录3　 003       ccccc
    记录4　 004       ddddd
在ComboBox1中显示B字段中的内容，如果选中bbbbb就知道是记录1这上　怎么做啊！
请高手指点！！！谢谢了！

Answer 1

可以用sql查询，可以用query.locate,可以预先定义数组，数组下标为combobox的itemindex，总之很多办法.

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
var ss: String;
begin
  ss := 'xhh';
  ComboBox1.Items.AddObject('我的名字',TObject(ss));
end;procedure TForm1.ComboBox1Click(Sender: TObject);
begin  ShowMessageFmt('ComboBox1.Text=%s,Name=%s',[combobox1.Items[comboBox1.ItemIndex],String(ComboBox1.Items.Objects[combobox1.ItemIndex])]);
end;

Answer 3

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
...
  query.sql.text:='select a from table where b='''+ComboBox1.text+''''
...
  showmessage(Query.field[0].asstring);
end;