Delphi Delphi 自带的Json格式化方法

• 函数类型：　自定义函数

• 函数说明：

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;

• 效果：

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