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') 不同。