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;
郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。