Delphi7用superobject解析Json数据superobject.pas下载

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;