json - 使用 "pretty"(缩进)格式打印 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 不支持 pretty-print 。

其他 JSON 库也可以。例如SuperObject ，如下所述:How do I pretty-print JSON in Delphi?