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;



  • 效果:

  



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





联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678