上传者: 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;