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を取得しようと、I \文字でJSONを取得します。

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

原因は何ですか。

Answer 1

JSONは完全に有効です。ネストされたオブジェクトは、JSONで表される場合、二重引用符文字を含みます。文字列区切り文字として予約されているため、エスケープする必要があります。したがって、エスケープ文字としてのバックスラッシュ文字の使用。