将 Delphi 对象转换为 JSON答案

【问题标题】：Converting Delphi Objects to JSON将 Delphi 对象转换为 JSON
【发布时间】：2016-05-16 16:50:47
【问题描述】：

我正在使用 Delphi XE7，但无法将对象转换为 JSON。我可以得到一些对象来回馈我认为正确的 JSON，例如 TTestObject:

{"Test":{"Field":"TestField","Operation":"TestOperation","values":
["Value1","Value2","Value3","Value4"]}}

JOBJ:= TJSONObject.Create;
JOBJ.AddPair('Test', ATestObject.JSONObj);
memo1.Lines.Add(JObj.ToJSON);
JOBJ.Free;

但是，当我尝试从具有对象属性的对象中取回 JSON 时，我会得到带有 \ 字符的 JSON。

{"Exceptions":{"TestObject1":"
{\"Mode\":\"0\",\"Value\":\"100.50\",\"Days\":\"10\"}","TestObject2":"
{\"Mode\":\"0\",\"Days\":\"0\",\"UnitsSold\":\" 
...

这是什么原因造成的？

【问题讨论】：

标签： json delphi delphi-xe7

【解决方案1】：

JSON 完全有效。您的嵌套对象在表示为 JSON 时包含双引号字符。由于它们被保留为字符串分隔符，因此需要对其进行转义。因此使用反斜杠字符作为转义字符。

【讨论】：