json - Delphi 中的自定义编码 TDictionary

Question

我需要在 Delphi (XE) 中自定义编码/取消编码 TDictionary。字典声明为:

TMyRecord = record
  key11: integer;
  key12: string;
  ...
end;

TMyDict: TDictionary<string, TMyRecord>;

现在，如果我在不注册自定义转换器的情况下编码字典，编码器会将所有类型的字段放入 JSON 字符串中 - FOnValueNotify、FKeyCollection、FItems 等。

我需要的是某种关联数组的关联数组，即

{"key1":{"key11":"val1","key12":"val2"},"key2":{"key11":"val3","key12":"val4"}}

不幸的是，我不知道如何编写自定义转换器和还原器。我正在使用 Delphi XE 和内置的 TJSONMarshal 和 TJSONUnMarshal。

注意:此任务不需要使用 TDictionary。我只是不能带来更好的东西。

Answer 1

对于像您这样的简单案例，我倾向于使用自定义方法在 JSON 中表示我的对象。但是，如果你想创建还原器和转换器，你应该阅读这篇文章: http://www.danieleteti.it/?p=146