Delphi 原生支持JSON的鏈式寫法

procedure TForm2.Button1Click(Sender: TObject);
var sb: TStringBuilder;
  sw: TStringWriter;
  jtw: TJsonTextWriter;
  job: TJSONObjectBuilder;
begin
  sb := TStringBuilder.Create;
  sw := TStringWriter.Create(sb);
  jtw := TJsonTextWriter.Create(sw);
  jtw.Formatting := TJsonFormatting.Indented;
  job := TJSONObjectBuilder.Create(jtw);
  job
    .BeginObject
      .BeginArray('數組')
        .BeginObject.Add('id', 123)
          .Add('Name', '名稱一')
          .AddNull('parent_id')
        .EndObject
      .EndArray
    .EndObject;
  Memo1.Text := sb.ToString;
  (*輸出的json
{
    "數組": [
        {
            "id": 123,
            "Name": "名稱一",
            "parent_id": null
        }
    ]
}
  *)
end;

System.JSON.Builders.pas

delphi10 berlin增加的新單元，都說用它構建json方便。

uses
System.JSON.Writers, System.JSON.Types, System.JSON.Builders；

原文地址：https://www.cnblogs.com/hnxxcxg/p/14708803.html

感謝詠南的分享！