文件名称:Delphi7用superobject解析Json数据,superobject.pas下载
文件大小:203KB
文件格式:PAS
更新时间:2023-11-28 17:09:07
Delphi7 superobject
Delphi读写操作JSON字符串时,需引用一个superobject.pas文件。 var jo,jt:ISuperObject; begin jo:=SO(); jt:=SO(); jo.S['姓名']:='小王'; jo.I['年龄']:=25; jo.S['性别']:='男'; jt.O['人员']:=jo; ShowMessage('原JSON字符串为:'+jt.AsString); ShowMessage('人员中姓名的JSON值:'+jt.O['人员'].S['姓名']);//获取指定JSON值 end;