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‘) 不同。
时间: 2024-11-12 04:34:54