在 Delphi 中,创建一个数据字典通常意味着使用一种结构来存储键值对。Delphi 没有内建的字典类型,但你可以使用 TStringList
从 Classes
单元作为一个简单的键值对存储,或者你可以使用更复杂的第三方容器,如 TDictionary
从 Generics.Collections
单元。
以下是一个使用 TDictionary
的简单示例:
usesSystem.SysUtils, System.Generics.Collections;varDict: TDictionary<string, string>;Key: string;Value: string;
begin// 创建一个新的字典实例Dict := TDictionary<string, string>.Create;try// 添加一些键值对Dict.Add('Key1', 'Value1');Dict.Add('Key2', 'Value2');Dict.Add('Key3', 'Value3');// 遍历字典并输出键值对for Key in Dict.Keys dobeginValue := Dict[Key];WriteLn(Format('Key: %s, Value: %s', [Key, Value]));end;// 检查一个特定的键是否存在,并输出其值if Dict.ContainsKey('Key2') thenWriteLn(Format('Value for Key2: %s', [Dict['Key2']]))elseWriteLn('Key2 not found');// 移除一个键值对Dict.Remove('Key3');// 再次检查已移除的键是否存在if Dict.ContainsKey('Key3') thenWriteLn('Key3 still exists')elseWriteLn('Key3 has been removed');finally// 释放字典实例Dict.Free;end;
end;
uses
System.SysUtils, System.Generics.Collections;
var
Dict: TDictionary<string, string>;
Key: string;
Value: string;
begin
// 创建一个新的字典实例
Dict := TDictionary<string, string>.Create;
try
// 添加一些键值对
Dict.Add('Key1', 'Value1');
Dict.Add('Key2', 'Value2');
Dict.Add('Key3', 'Value3');
// 遍历字典并输出键值对
for Key in Dict.Keys do
begin
Value := Dict[Key];
WriteLn(Format('Key: %s, Value: %s', [Key, Value]));
end;
// 检查一个特定的键是否存在,并输出其值
if Dict.ContainsKey('Key2') then
WriteLn(Format('Value for Key2: %s', [Dict['Key2']]))
else
WriteLn('Key2 not found');
// 移除一个键值对
Dict.Remove('Key3');
// 再次检查已移除的键是否存在
if Dict.ContainsKey('Key3') then
WriteLn('Key3 still exists')
else
WriteLn('Key3 has been removed');
finally
// 释放字典实例
Dict.Free;
end;
end;