用combobox的addobject能不能实现这样的功能

Question

小弟对addobject方法不熟，我想实现这样的功能，一个表有ID,Name,用一个combobox显示名称，如果用户选择combobox中的name,则同时对应id,我原来是用一个Tstringlist存id实现，用combobox的index号来取出id号，用addobject可以实现吗。

Answer 1

var
  edit1,edit2:tedit;
begin
  edit1:=Tedit.Create(nil);
  edit2:=Tedit.Create(nil);
  combobox1.Items.AddObject('one',edit1);
  combobox1.Items.AddObject('two',edit2);
  label2.Caption:=combobox1.Items.Names[1];
  label2.Caption:=combobox1.Items.Objects[1].ClassName ;
end;
我随便做的，原来也没用过。

Answer 2

//增加
procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
begin
  S := '001';
  combobox1.Items.AddObject('000',TObject(S));
end;//读取 
procedure TForm1.Button2Click(Sender: TObject);
begin
  edit1.Text := string(combobox1.Items.Object[combobox1.ItemIndex]);
end;