json数组，随便测试

  Pid := '1001411225514227,926792194654225';
  json := SA([1001411225514225]);
  json.AsArray.Add(SO(pid));
  ShowMessage( json.AsString);

---------------------------

---------------------------
[1001411225514225,1001411225514227]
---------------------------
OK   
---------------------------