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

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

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

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