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 do16   begin17 //所以在循环里时要 特别注意，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;