delphi中combobox键值对

delphi中combobox键值对  

2010-09-13 10:46:51|  分类： 默认分类 |  标签： |字号大中小 订阅

1.添加键值对：

    cbb1.Items.AddObject(‘显示的文字‘, TObject(NewStr(’作为值存在的字符串‘)));

2.读取选中键的值

   ShowMessage(PString(cbb1.Items.Objects[cbb1.ItemIndex])^);

 

实例：从文件中读取cbbEffect的键值对

IniPath := ExtractFilePath(Application.ExeName)+'./effect.ini'; //当前工程路径下的effect.ini文件
   str1 := TStringList.Create();
   str1.LoadFromFile(IniPath);
   for i:=0 to str1.Count-1 do
   begin
       cbbEffect.Items.AddObject(str1.ValueFromIndex[i],TObject(NewStr(str1.Names[i])));
   end;

其中，effect.ini的内容如下

0=图片

1=文字

2=动画