Delphi MORMot Syncommon Reformat Json 重新格式化JSON 1 2 FormatedJson := JSONReformat(OriginJSON,jsonHumanReadable); ShowMessage(FormatedJson); 其他选项可以查看 SynCommon.pas 下的 TTextWriterJSONFormat 集合