Delphi中Json之superobject

 

superobject版本为1.2

开发环境D7

太容易忘记了，做个笔记

//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;