delphi中combobox键值对addobject

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=动画