如何使用 Delphi 缩小JSON？

ct2axkht 于 2023-08-04 发布在其他

关注(0)|答案(1)|浏览(88)

使用以下代码，我可以使用System.JSON单元中的内置 Delphi 函数格式化（美化）JSON：

function FormatJson(json: String; IndentationCount: Cardinal): String;
begin
  try
    var JsonObject := TJSONObject.ParseJSONValue(json) as TJSONObject;
    Result := JsonObject.Format(IndentationCount);
  except
    on E:Exception do
    begin
      // Error in JSON syntax
    end;
  end;
end;

字符串
Delphi 中是否有一个内置函数来执行相反的操作？我想缩小我的JSON。
如果没有内置的方法，有没有人写了一个函数来缩小JSON？

delphi

来源：https://stackoverflow.com/questions/76696256/how-do-i-minify-json-using-delphi

1条答案

按热度按时间

wz3gfoph1#

是的，有一个内置的方法可以使用System.JSON单元来缩小JSON：

function MinifyJson(json: String): String;
begin
  var JsonObject := TJSONObject.ParseJSONValue(json) as TJSONObject;
  try
    Result := JsonObject.ToString;
  finally
    JsonObject.Free;
  end;
end;

字符串
如果你不想使用内置的方法，你可以简单地用下面的函数来修剪每一行，这不需要System.JSON：

function MinifyJson(json: String): String;
begin
  for var I in json.Split([sLineBreak]) do
    Result := Result + I.Trim([' ', #09, #10, #13]);
end;

型
下面的截图显示了使用上面的代码在我的UI中缩小的JSON：

的数据

赞(0）回复(0）举报 2023-08-04

我来回答

如何使用 Delphi 缩小JSON？

1条答案

相关问题

热门标签

最新问答