以"漂亮"(缩进)格式打印JSON

Question

如果我创建一个JSON对象并在控制台上打印它:

LJSONObject:= TJSONObject.Create;
LJSONObject.AddPair(TJSONPair.Create(TJSONString.Create('Hello'), TJSONString.Create('World')));
LJSONObject.AddPair(TJSONPair.Create(TJSONString.Create('Ciao'), TJSONString.Create('Mondo')));
Writeln(LJSONObject.ToString);

结果是:

{"Hello":"World", "Ciao":"Mondo"}

我怎么能用更好的缩进打印结果,像这样？

{
   "Hello":"World",
   "Ciao":"MOndo"
}

Answer 1

TJSONObject 不支持漂亮的打印.

其他JSON库也可以.例如SuperObject,如下所述:如何在Delphi中打印JSON？