admin 管理员组

文章数量: 1184232


2024年4月13日发(作者：bsd码转十进制计算器)

delphi解析Json格式

SuperObject 是开源的 Delphi 的 JSON 工具包，可生成 JSON

数据以及进行 JSON 解析。

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Co

ntrols, 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 1Click(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 下载地址：


本文标签： 进行 解析 生成

版权声明：本文标题：delphi解析Json格式 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1713015382a617277.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。