System.JSON.Builders.pas

System.JSON.Builders.pas

delphi10 berlin增加的新单元，都说用它构建json方便。

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

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

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;