delphi教程

delphi json解析

位置:首页 > delphi教程 > 高级教程,2015-10-15
SuperObject 是开源的 Delphi 的 JSON 工具包,可生成 JSON 数据以及进行 JSON 解析。unit Unit6;interfaceu
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.

TAGS:delphi json解析

猜你喜欢

NewHot