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

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

Delphi XE JSON[2] 创建JSON数据

扩展一种链式写法：

?

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

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　　更新时间：