Delphi6中实现键值对(Key-Value)存储

在Delphi6中实现键值对(Key-Value)存储有以下几种常用方法：

1、使用TStringList实现简易键值对

var List: TStringList;

begin

List := TStringList.Create;

List.Add('name=张三'); // 添加键值对

List.Add('age=25');

ShowMessage(List.Values['name']); // 获取值

List.Free;

end;

2、THashedStringList实现哈希键值对（需IniFiles单元）

var HashList: THashedStringList;

begin HashList := THashedStringList.Create;

HashList.AddPair('key1', 'value1'); // 添加键值对

HashList.Values['key2'] := 'value2';

ShowMessage(HashList.Values['key1']); // 快速查找

HashList.Free; end;

3、ComboBox组件存储键值对

// 添加

cbb1.Items.AddObject('显示文本', TObject(NewStr('实际值')));

// 读取

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

 

注意事项：

• TStringList的键值对用等号(=)分隔键和值5
• THashedStringList查找效率更高但需手动释放内存1