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[