superobject数组添加json对象，用的是引用

 1 procedure TForm1.Button1Click(Sender: TObject);

 2 var

 3   ja,jo: ISuperObject;

 4   I: Integer;

 5 begin

 6   ja := SA([]); jo :=SO();

 7   jo.S['index'] := IntToStr(10);

 8 

 9   ja.AsArray.Add(jo);

10   Memo1.Lines.Add(ja.AsString);//[{"index":"10"}]

11 

12   jo.S['index'] := IntToStr(12);

13   Memo1.Lines.Add(ja.AsString);//[{"index":"12"}]

14 

15   for I := 0 to 10 do

16   begin

17 //所以在循环里时要 特别注意，

18 //先 jo := so(); 一下

19     jo.S['index'] := IntToStr(I);

20     Memo1.Lines.Add(jo.AsString);

21     ja.AsArray.Add(jo);

22   end;

23   Memo1.Lines.Add( ja.AsString );

24 end;