SuperObject 是开源的 Delphi 的 JSON 工具包,可生成 JSON 数据以及进行 JSON 解析。
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm6 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
end;
var
Form6: TForm6;
implementation
uses superobject;
{$R *.dfm}
{ TForm6 }
procedure TForm6.Button1Click(Sender: TObject);
var
vJson,vItem: ISuperObject;
begin
vJson := SO('{"classname":"初二一班","pupils":[{"name":"张三","sex":"男"},{"name":"李四","sex":"女"}]}');
ShowMessage(vJson['classname'].AsString);
//开始遍历
for vItem in vJson['pupils'] do
begin
ShowMessage(vItem['name'].AsString);
showMessage(vItem['sex'].AsString);
end;
end;
end.
SuperObject 下载地址:
http://www.ctdisk.com/file/3537433