JSON 数组的创建方式

procedure TFormDZMD.Button1Click(Sender: TObject);
var
  ja: ISuperObject;
begin
  ja := SA([]);
  ja.AsArray.Add(SO(''));
  ShowMessage(ja.AsString);
  ja.AsArray.Add(SO(''));
  ja.AsArray.Add(SO(''));
  ShowMessage(ja.AsString);
end;

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

[1]

[1,2,3]

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

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

["1"]

["1",2,3]

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