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

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

1 function GetArrayJson: string;
2
3   function GetPersonSO(const AName: string; AAge: Integer): ISuperObject;
4   begin
5     Result := SO;
6     Result.S['name'] := AName;
7     Result.I['age'] := AAge;
8   end;
9
10 var
11   vJa: ISuperObject;
12 begin
13   vJa := SA([]);
14   vJa.AsArray.Add(GetPersonSO('张三', 17));
15   vJa.AsArray.Add(GetPersonSO('李四', 20));
16   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;