重新格式化JSON

1
2
FormatedJson := JSONReformat(OriginJSON,jsonHumanReadable);
ShowMessage(FormatedJson);

其他选项可以查看 SynCommon.pas 下的 TTextWriterJSONFormat 集合