Delphi SuperObject 生成 JSON 文本串

function TMaoKuObject.BatchUseCouponByVCodeList(verification:Integer;McShopID:Integer;
    lstVCode: TStringList;var ReplayData, ErrMsg: String): Boolean;
var
  slParam:TStringList;
  sUrl,sSign,sResult:String;
  sJson,encryptString:string;
  soJson,parmJson,parmJson_sub:ISuperObject;
  i:Integer;
begin
  //https://docs.mallcoo.cn/open/api/Coupon.html#券核销v2
  Result:=False;
  slParam:=TStringList.Create;
  try
    try
      parmJson := SO;
      parmJson.I['Verification'] := verification;
      parmJson.I['McShopID'] := McShopID;
      parmJson.S['CrmShopID'] := '';
      parmJson.S['DevShopID'] := '';
      parmJson.B['IsAllSuccess'] := False;
      parmJson.S['POSID'] := '';
      parmJson.S['TradeSerialNo'] := '';
      parmJson.S['OrderNo'] := '';
      parmJson.S['ThirdOperator'] := '';
      parmJson.O['UseInfoList'] := SA([]);

      for I := 0 to lstVCode.Count -1 do
      begin
        parmJson_sub := SO;
        parmJson_sub.S['VCode'] := lstVCode.Strings[i];
        parmJson.A['UseInfoList'].Add(parmJson_sub) ;
      end;

      sjson :=  parmJson.AsString;

      if HTTPSPost(API_BatchUseCoupon_ByVCodeList,sjson,sResult) then
      begin
        soJson:=so(sResult);
        if soJson.S['Code']='1' then
        begin
          Result:=True;
          ReplayData:=sResult;
        end
        else
          ErrMsg:=soJson.S['Message'];
      end
      else
        ErrMsg:=sResult;
    Except
      on E:Exception do
      begin
        Result:=False;
        ErrMsg:=E.Message;
      end;
    end;
  finally
    slParam.Free;
  end;
end;