TComboBox 能实现这样的功能吗？？？

Question

var
  myClass:TmyClass;
begin
  myClass:=TmyClass.Create;
  myClass.name:='hwj';
  myClass.num:=29;
  TComboBox.Items.AddObject('aaa',myClass);进行选择后，我有没有办法读到myClass.name 和myClass.num的内容 ？ 或者有其它的方法能实现？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  myClass:TmyClass;
  Position: Integer;
begin
  myClass:=TmyClass.Create;
  myClass.name:='hwj';
  myClass.num := 29;
  ComboBox1.Items.AddObject('aaa',myClass);
  Position := ComboBox1.Items.IndexOf('aaa');
  ShowMessage(TmyClass(ComboBox1.Items.Objects[Position]).name);
  //TmyClass(ComboBox1.Items.Objects[0]).Num
end;