用delphi原生的TJSONObject 类解析json文件。

5.保证无毒 1.简单,方便,实用 3.实例可以自行改用 1.如有非法,本人无法律责任！ 8.更多作品,查找标签“朱建强”7.下载,请杀毒！ 4.如需联系我请看左边数字！1.如不知代表何物，那就放弃计算机吧！ 0.还不懂？CSDN老板不让我上传联系方式。

关于 delphi 的 JSON 操作详解 Demo 1. TJSONObject，TJSONArray 使用详解 2. TJSONObject助手单元uSZHN_JSON.pas 例如： var jo : TJSONObject; begin 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; { //也可以如下： jo.O['organization'] := TJSONObject.Create.AddPair('oname','大中华科技'); jo.O['organization'].I['oyear'] := 20; } Memo2.Text := JSON_Format(jo.ToString); finally jo.Free; //切记这里需要释放 end;

通过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;