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

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

1 楼gzmhero（hihihi）回复于 2005-04-03 18:06:04 得分 20

cbbDepartmentName.AddItem('财务部',TObject(pChar('cwb')));  
   
   
  pChar(cbbDepartmentName.Items.Objects[cbbDepartmentName.ItemIndex])  
  Top

2 楼mymsdn（坦克）回复于 2005-04-03 18:17:15 得分 0

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

3 楼gzmhero（hihihi）回复于 2005-04-03 18:27:14 得分 0

当然试过，否则也不会随便放到这里。  
  用TComboBox试过。  
   
  ////////////////////////////////  
  你还没说明你用的是什么控件。Top

4 楼real_name（*真名）回复于 2005-04-03 18:31:13 得分 0

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

5 楼mymsdn（坦克）回复于 2005-04-03 18:32:57 得分 0

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

6 楼gzmhero（hihihi）回复于 2005-04-03 18:35:55 得分 0

或者：  
  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;  
   
  这样使用最好。可读性好，不容易出错。Top

7 楼mymsdn（坦克）回复于 2005-04-03 18:56:25 得分 0

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

8 楼mymsdn（坦克）回复于 2005-04-03 18:56:40 得分 0

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

相关问题

• msn
• cbbdepartmentname
• cwb
• pmystruct
• additem
• strinfo
• itemindex
• 财务部
• tobject
• 部门

• 帖主：mymsdn
• gzmhero

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载