Delphi XE JSON[4] 创建JSON数据（扩展：链式写法）

Delphi XE JSON[4] 创建JSON数据（扩展：链式写法）

Delphi XE JSON[2] 创建JSON数据

扩展一种链式写法：

var
  JSObject,JSEle1,JSEle2:TJSONObject;
  JSONArr:TJSONArray;
begin
  Memo1.Clear;  Memo2.Clear;
  JSObject:=TJSONObject.Create; //创建JSON对象
  JSObject
    .AddPair('水果',
      TJSONArray.Create
        .Add(
          TJSONObject.Create
            .AddPair('名称','苹果')
            .AddPair('数量',TJSONNumber.Create(10))
            .AddPair('价格',TJSONNumber.Create(5))
        )
        .Add(
          TJSONObject.Create
            .AddPair('名称','香蕉')
            .AddPair('数量',TJSONNumber.Create(20))
            .AddPair('价格',TJSONNumber.Create(3))
        )
    )
    .AddPair('其他','滔Roy ');

    Memo1.Lines.Add(JSObject.ToString);   //TConverters.JsonReformat(JSObject.ToJSON);
    Memo2.Lines.Add(JSObject.ToJSON);
    LabelCount.Caption:=IntToStr(JSObject.Count);

end;

代码看起来，层次比较分明.

 

 

　　

 

 

 

 

 

创建时间：2022.03.20　　更新时间：