关于 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;