• 函数类型：　自定义函数

• 函数说明：

Delphi 自带的Json格式化方法

• 代码如下：

uses json, REST.Json; {$R *.dfm} function FormatJSON(json: String): String; var   tmpJson: TJsonObject; begin   tmpJson := TJSONObject.ParseJSONValue(json) as TJSONObject;   Result := TJson.Format(tmpJson);   FreeAndNil(tmpJson); end;

• 效果：

　

《学习大师原创文档，请勿转载，侵权必究》