关于AddItem的问题，在线等，成功立即结帖！

[mymsdn]

我想在部门列表中增加一项部门信息：
cbbDepartmentName.AddItem('财务部',TObject('cwb'));
在程序运行时，我在部门列表中选了财务部，请问怎样得到用TObject包装的'cwb'呢？
用下面语句取出错。
string(cbbDepartmentName.Items.Objects[cbbDepartmentName.ItemIndex])
请大虾指导，谢谢。

[gzmhero]

cbbDepartmentName.AddItem('财务部',TObject(pChar('cwb')));


pChar(cbbDepartmentName.Items.Objects[cbbDepartmentName.ItemIndex])

[mymsdn]

多谢关注！不行的，不知道你试过没有。

[gzmhero]

当然试过，否则也不会随便放到这里。
用TComboBox试过。

////////////////////////////////
你还没说明你用的是什么控件。

[real_name]

用一个 olevariant 过渡 行吗？
关注！

[mymsdn]

是用的TComboBox控件。
不过，财务部和cwb是从数据库中取出来的。并不只有一项。单独试一项，确实可以。
不过，分还是给你。我再想一下。

[gzmhero]

或者：
PMyStruct=^TMyStruct;
TMyStruct=record
strInfo:string;
end;


var
pMS:PMyStruct;

.....
new(pMS);
pMS^.strInfo:='cwb';

cbbDepartmentName.AddItem('财务部',TObject(pMS));

...........................
PMyStruct(cbbDepartmentName.Items.Objects[cbbDepartmentName.ItemIndex])^.strInfo;

这样使用最好。可读性好，不容易出错。

[mymsdn]

特别感谢不得gzmhero 。
你后面说的非常好，我也想过想这样做，但又没有什么把握，看了你的，试了，现在对了。
多谢！希望能交个朋友。我的QQ：6379863，MSN：[e-mail]

[mymsdn]

特别感谢 gzmhero 。
你后面说的非常好，我也想过想这样做，但又没有什么把握，看了你的，试了，现在对了。
多谢！希望能交个朋友。我的QQ：6379863，MSN：[e-mail]