Delphi数据字典TDictionary

在 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;