JSON 数组的创建方式

procedure TFormDZMD.Button1Click(Sender: TObject);

var

  ja: ISuperObject;

begin

  ja := SA([]);

  ja.AsArray.Add(SO('1'));

  ShowMessage(ja.AsString);

  ja.AsArray.Add(SO('2'));

  ja.AsArray.Add(SO('3'));

  ShowMessage(ja.AsString);

end;

先用SA{[]}创建一个空的或者   ja := SA([So('1')]);。

 

[1]

[1,2,3]

 

另外就是创建时就 指定元素。结果不过。

 

  ja := SA(['1']); 返回

["1"]

["1",2,3]

 

SO('1')  和 SO('A1') 不同。