一、生成
var
json: ISuperObject;
json_sub: array of ISuperObject;
i: integer;
begin
json := SO;
json.S['i'] := '5';
json.O['show'] := SA([]);
SetLength(json_sub, 3);
for i := 0 to Length(json_sub) - 1 do
begin
json_sub[i] := SO();
json_sub[i].i['id'] := i;
json.A['show'].Add(json_sub[i]);
json_sub[i] := nil;
end;
for i := 0 to Length(json_sub) - 1 do
begin
end;
json.SaveTo('C:\out.txt');
json := nil;
二、解析
var
json_array: TSuperArray;
json: ISuperObject;
sum: integer;
i: Integer;
begin
json := SO(Memo2.Text);
json_array := json.AsArray;
sum := json_array.Length;
for i := 0 to sum - 1 do
begin
Memo2.Lines.Add(json_array[i].S['id']);
end;
json_array := nil;
json := nil;
三、说明
只是简单的生成和解析,当作参考吧