上传者: lwson2008 
                                    |
                                    上传时间: 2021-12-13 21:30:32
                                    |
                                    文件大小: 203KB
                                    |
                                    文件类型: -
                                
                            
                                
                            
                                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;