Delphi中Json之superobject

superobject版本为1.2

开发环境D7

太容易忘记了，做个笔记

//1. Json的数组添加和赋值 

 1 var
 2   Ijson,Ijson_01:ISuperObject;
 3   s:string;
 4   i:Integer;
 5 begin
 6   Ijson:=superobject.SO('{}');
 7   Ijson.S['Set01']:='0000';
 8   Ijson.S['Set02']:='1111';
 9   Ijson.s['WhereSQLSet']:='WHere sdghfgj=sdfjhdf';
10   Ijson['WhereSQLSetDisplay']:=superobject.SA([]);
11   Ijson_01:=superobject.SO('{}');
12   for i:=1 to 10 do
13   begin
14     Ijson_01.S['ID']:=IntToStr(i);
15     Ijson_01.S['Name']:='A_'+IntToStr(i);
16     Ijson.A['WhereSQLSetDisplay'].Add(Ijson_01);
17   end;
18  Memo3.Text:=Ijson.AsString;
19 end;

//2. 数组中套数组

 1 var
 2   Ijson,Json_array:ISuperObject;
 3   s:string;
 4   i:Integer;
 5 begin
 6   Ijson:=superobject.SO('{}');
 7   Ijson.S['Set01']:='0000';
 8   Ijson.S['Set02']:='1111';
 9   Ijson.s['WhereSQLSet']:='WHere sdghfgj=sdfjhdf';
10   Ijson['WhereSQLSetDisplay']:=superobject.SA([]);
11   //Ijson_01:=superobject.SO('{}');
12   Memo3.Clear;
13   for i:=1 to 10 do
14   begin
15     Json_array:= superobject.SA([]);
16     Json_array.AsArray.S[0] :=IntToStr(i);
17     Json_array.AsArray.S[1] :='A_'+IntToStr(i);
18     Ijson.A['WhereSQLSetDisplay'].Add(Json_array);
19 
20   end;
21   Memo3.Text:=Ijson.AsString;
22 end;

//3.读取2中的Memo3的数组值

 1 var
 2   Ijson,Ijson_array:ISuperObject;
 3   vs:string;
 4   i:Integer;
 5 begin
 6   Ijson:=superobject.SO(Memo3.Text);
 7   //读数组
 8   vs:='';
 9   Memo4.Clear;
10   for i:=0 to 9 do
11   begin
12     Ijson_array:=superobject.SO(Ijson['WhereSQLSetDisplay'].AsArray.s[i]);
13     vs:=Ijson_array.AsArray.s[0]+';'+
14     Ijson_array.AsArray.S[1];
15     memo4.Lines.Add(vs);
16   end;
17 end;