• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

delphi 解析Json格式（转自：http://blog.csdn.net/jayqiang/article/details/7066824 ...

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

SuperObject 是开源的 Delphi 的 JSON 工具包，可生成 JSON 数据以及进行 JSON 解析。

[delphi] view plaincopy
 
  1. unit Unit6;  
  2.   
  3. interface  
  4.   
  5. uses  
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  7.   Dialogs, StdCtrls;  
  8.   
  9. type  
  10.   TForm6 = class(TForm)  
  11.     Button1: TButton;  
  12.     procedure Button1Click(Sender: TObject);  
  13.   private  
  14.     { Private declarations }  
  15.   public  
  16.   end;  
  17.   
  18. var  
  19.   Form6: TForm6;  
  20.   
  21. implementation  
  22.   
  23. uses superobject;  
  24.   
  25. {$R *.dfm}  
  26.   
  27. { TForm6 }  
  28.   
  29. procedure TForm6.Button1Click(Sender: TObject);  
  30. var  
  31.   vJson,vItem: ISuperObject;  
  32. begin  
  33.     vJson := SO('{"classname":"初二一班","pupils":[{"name":"张三","sex":"男"},{"name":"李四","sex":"女"}]}');  
  34.     ShowMessage(vJson['classname'].AsString);  
  35.     //开始遍历  
  36.     for vItem in vJson['pupils'] do  
  37.     begin  
  38.        ShowMessage(vItem['name'].AsString);  
  39.        showMessage(vItem['sex'].AsString);  
  40.     end;  
  41. end;  
  42.   
  43. end.  


SuperObject 下载地址：
http://www.ctdisk.com/file/3537433

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
[Matlab]求解线性方程组发布时间：2022-07-18
下一篇：
MATLAB权威指南发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap