delphi中combobox键值对

最新推荐文章于 2024-07-22 21:25:14 发布

踏雪无痕

最新推荐文章于 2024-07-22 21:25:14 发布

阅读量4.8k

点赞数

分类专栏： Delphi程序实例

Delphi程序实例专栏收录该内容

44 篇文章 4 订阅

订阅专栏

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');

// 迭代也很简单