Delphi7下SuperObject的JSON使用方法

2021-05-27 20:03:28 阅读：385 来源： 互联网

标签：animals name aJson JSON Delphi7 aSuperArray year SuperObject id

uses    superobject;

procedure TForm1.FormCreate(Sender: TObject);
var aJson: ISuperObject;
aSuperArray: TSuperArray;
   i:Integer;
begin
  {1、赋初值}  aJson:=SO('{"zoo":"涂磊动物园","animals":[{"name":"猴子","year":"12"},{"name":"老虎","year":"132"}]}');
  {2、读值前，一定要先判断是否存在}  if   aJson['animals']<> nil  then
       showmessage(  aJson['animals'].AsString );

  {3、多值的读取} aSuperArray:= aJson['animals'].AsArray;
//多值 "animals":[{"name":"猴子","year":"12"},
 //               {"name":"老虎","year":"132"}]
   for i:=0 to  aSuperArray.Length-1 do
 memo1.Lines.Add(aSuperArray[i]['name'].AsString+aSuperArray[i]['year'].AsString);

   aJson:=SO('{"code":0,"data":{"area":"华东","area_id":"300000","city":"宜春市","city_id":"360900","country":"中国","country_id":"CN","county":"","county_id":"","ip":"59.62.201.110","isp":"电信","isp_id":"100017","region":"江西省","region_id":"360000"}}');
  {4、深层级的访问}  if   aJson['data.country']<> nil  then
   showmessage(  aJson['data.country'].AsString );    // 中国
end;

SuperObject.pas和JSON查看软件下载

发表于 2016-12-07 15:00 涂磊阅读(14705) 评论(3) 编辑收藏

标签：animals,name,aJson,JSON,Delphi7,aSuperArray,year,SuperObject,id
来源： https://blog.51cto.com/u_15216366/2823470

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

Delphi7下SuperObject的JSON使用方法