Delphi 如何读写JSON字符串

Delphi读写操作JSON字符串时，需引用一个superobject.pas文件。
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;

输出原JSON串：

输出指定JSON值