上传者: sensor_WU
|
上传时间: 2021-06-22 15:03:35
|
文件大小: 6KB
|
文件类型: PAS
通过Helper扩充,实现delphi 原生的JSON操作书写方法可以类似于SuperObject
书写简单,代码清晰。例如:
jo := TJSONObject.Create;
try
jo.S['name'] := '张大顺';
jo.I['age'] := 40;
jo.B['married'] := True;
jo.A['books'] := TJSONArray.Create;
jo.A['books'].Add('《Web开发人员参考大全》').Add('《delphi深度学习》');
jo.O['organization'] := TJSONObject.Create;
jo.O['organization'].S['oname'] := '大中华科技';
jo.O['organization'].I['oyear'] := 20;