Delphi Json的创建与解析

1、Json的创建

创建李四、王五放到data数组中

 代码如下：

var
Json_In,Json_M,Json_A:ISuperObject;

begin
Json_A:=SA([]);
Json_M := SO();
Json_In := SO();
Json_In.S['sXM'] := '张三';
Json_In.S['sXB'] := '女';
Json_A.AsArray.Add(Json_In);
Json_In := SO();
Json_In.S['sXM'] := '李四';
Json_In.S['sXB'] := '男';
Json_A.AsArray.Add(Json_In);
Json_M.O['data'] :=Json_A;
cxMemo1.Lines.Clear;
cxMemo1.Lines.Add(Json_M.AsString);
end;

2、解析数组

 代码如下

var
Json_In,Json_M,Json_A:ISuperObject;
Json_A1:TSuperArray;
i:Integer;
begin
Json_M := SO(cxMemo1.Text);
Json_A1 := Json_M.A['data'];
for I := 0 to Json_A1.Length-1 do
begin
cxMemo1.Lines.Clear;
cxMemo1.Lines.Add(Json_A1[i].S['sXM']);
cxMemo1.Lines.Add(Json_A1[i].S['sXB']);
end;

end;

3、Json数组中值不需要引号，例如"Test":[123456]

代码如下

var
Json_In,Json_M,Json_A:ISuperObject;
Json_A1:TSuperArray;
i:Integer;
sBM:string;
begin
sBM := '123456';
Json_A :=SA([so(sBM)]);
Json_M := SO();
Json_M.O['Test'] := Json_A;
cxMemo1.Lines.Add(Json_M.AsString);
end;