Json.Stringify in DXE7 not working ?

[Dinosane2]

Json := TJson.Create();
Json['field6'].AsString := 'hello world';
writeln(Json.Stringify());

This simple code should produce a string

{"field6" : "hello world"}

??

If so it is not what is happening using Delphi XE7. An empty string is the result.

[carloshendrik]

fiz isso no Delphi 11 e a função Json.Stringify retornou vazio

[lamici]

I had the same problem. I solved it by creating an "override" of the stringify method in TJsonObject and TJsonArray. I'll attach the code below since I don't have the availability to create a pull request.

Jsons.zip