使用superobject 新建Json数据（数组）

1. 要得到的Json数据：[{"name":"张三","age": 17},{"name":"李四","age":20}]

function GetArrayJson: string;

  function GetPersonSO(const AName: string; AAge: Integer): ISuperObject;
  begin
    Result := SO;
    Result.S['name'] := AName;
    Result.I['age'] := AAge;
  end;

var
  vJa: ISuperObject;
begin
  vJa := SA([]);
  vJa.AsArray.Add(GetPersonSO('张三', 17));
  vJa.AsArray.Add(GetPersonSO('李四', 20));
  Result := vJa.AsJson;17 end;

2. 要得到的Json数据：{“data”:[{"name":"张三","age": 17},{"name":"李四","age":20}]}

function GetDataJson: string;

  function GetPersonSO(const AName: string; AAge: Integer): ISuperObject;
  begin
    Result := SO;
    Result.S['name'] := AName;
    Result.S['age'] := AAge;
  end;

  function GetArraySO: ISuperObject;
  begin
    Result := SA([]);
    Result.AsArray.Add(GetPerson('张三', 17));
    Result.AsArray.Add(GetPerson('李四', 20))
  end;

var
  vJo: ISuperObject;
begin
  vJo := SO;
  vJo.O['data'] := GetArraySO;
  Result := vJo.AsJson;
end;