TComboBox 能实现这样的功能吗???
var
myClass:TmyClass;
begin
myClass:=TmyClass.Create;
myClass.name:='hwj';
myClass.num:=29;
TComboBox.Items.AddObject('aaa',myClass);
进行选择后,我有没有办法读到myClass.name 和myClass.num的内容 ? 或者有其它的方法能实现?
问题点数:20、回复次数:5Top
1 楼ntn115(飞静)回复于 2004-12-03 00:43:01 得分 20
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;Top
2 楼g961681(技术庸人(情商太低))回复于 2004-12-03 09:22:12 得分 0
markTop
3 楼lookher(我是老虎)回复于 2004-12-03 10:29:18 得分 0
非常感谢!Top
4 楼lookher(我是老虎)回复于 2004-12-03 10:29:51 得分 0
非常感谢!Top
5 楼racesun(夸父)回复于 2004-12-03 10:31:24 得分 0
Good!Top




