TDictionary重复条目(Delphi)

Question

我正在尝试将以下值添加到

procedure TForm1.FormCreate(Sender: TObject);
var
  md: TDictionary<string, string>;
  s, v: string;
begin
  md := TDictionary<string, string>.Create;
  try
    s := 'orange';
    v := 'fruit';
    md.Add(s, v);

    s := 'orange ';
    v := 'color';
    md.Add(s, v);

    ShowMessage(IntToStr(md.Count));
  finally
    md.Free;
  end;
end;

我知道这是重复的，但是如果你看第二个橙色，你可以在最后看到一个空格。我认为Delphi修剪了值，但它不应该这样做。

有谁知道这个问题的解决方案吗？

谢谢,

Answer 1

此代码在所有已知的Delphi版本上显示一个包含数字2的消息框。这完全符合预期，并且在比较是否相等时，TDictionary代码肯定不会修剪您的键。