json - 将 Delphi 对象转换为 JSON

Question

我正在使用 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\":\" 
...

是什么原因造成的？

Answer 1

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