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=动画
cbb1 := TComboBox.Create(Self);
// cbb1.Items 实际上就是个键值对形式的集合,形如“key = value”,
// value可以是任何类型,所以定义为所有类型的根 TObject
cbb1 .Items.AddObject('一班','4'); // 第一个元素,下标0 ,key='一班',value = TObject( '4' )
cbb1 .Items.AddObject('二班','5');
cbb1 .Items.AddObject('三班','6');
// 迭代也很简单