將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表示）包含雙引號字符。由於它們被保留爲字符串分隔符，它們需要被轉義。因此使用反斜槓字符作爲轉義字符。