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