举例说明delphi中的TDictionary的用法

TDictionary是Delphi中的一个类，它实现了一个键值对的映射关系。以下是一个简单的例子，说明如何使用TDictionary类：

首先，我们需要在uses中加入Generics.Collections单元，以便使用TDictionary类。

uses
  Generics.Collections;

然后，我们可以声明一个TDictionary对象：

var
  dict: TDictionary<string, Integer>;

这个TDictionary对象将存储一个字符串类型的键和一个整数类型的值。

接下来，我们可以创建一个TDictionary对象并添加一些键值对：

dict := TDictionary<string, Integer>.Create;
dict.Add('apple', 1);
dict.Add('banana', 2);
dict.Add('orange', 3);

现在，我们可以使用字典来获取值：

var
  value: Integer;
begin
  if dict.TryGetValue('apple', value) then
    ShowMessage(IntToStr(value));
end;

这将显示键'apple'对应的值1。

我们还可以遍历所有键值对：

var
  pair: TPair<string, Integer>;
begin
  for pair in dict do
    ShowMessage(pair.Key + ': ' + IntToStr(pair.Value));
end;

这将显示所有键值对。