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;

标签：01,end,Ijson,Delphi,IntToStr,Json,superobject
来源： https://www.cnblogs.com/dmqhjp/p/15777868.html