重新格式化JSON

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

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