(Delphi ActiveX) Build JSON with Mixture of Arrays and Objects

Another example showing how to build JSON containing a mixture of arrays and objects.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
json: TChilkatJsonObject;

begin
// We want to build the following JSON:

// { 
//   "accountEnabled": true,
//   "assignedLicenses": [
//     { 
//       "disabledPlans": [ "bea13e0c-3828-4daa-a392-28af7ff61a0f" ],
//       "skuId": "skuId-value"
//     }
//   ],
//   "assignedPlans": [
//     { 
//       "assignedDateTime": "datetime-value",
//       "capabilityStatus": "capabilityStatus-value",
//       "service": "service-value",
//       "servicePlanId": "bea13e0c-3828-4daa-a392-28af7ff61a0f"
//     }
//   ],
//   "businessPhones": [
//     "businessPhones-value"
//   ],
//   "city": "city-value",
//   "companyName": "companyName-value"
// }

json := TChilkatJsonObject.Create(Self);
json.UpdateBool('accountEnabled',1);
json.I := 0;
json.UpdateString('assignedLicenses[i].disabledPlans[0]','bea13e0c-3828-4daa-a392-28af7ff61a0f');
json.UpdateString('assignedLicenses[i].skuId','skuId-value');
json.UpdateString('assignedPlans[i].assignedDateTime','datetime-value');
json.UpdateString('assignedPlans[i].capabilityStatus','capabilityStatus-value');
json.UpdateString('assignedPlans[i].service','service-value');
json.UpdateString('assignedPlans[i].servicePlanId','bea13e0c-3828-4daa-a392-28af7ff61a0f');
json.UpdateString('businessPhones[i]','businessPhones-value');
json.UpdateString('city','city-value');
json.UpdateString('companyName','companyName-value');

json.EmitCompact := 0;
Memo1.Lines.Add(json.Emit());

// Output:

// { 
//   "accountEnabled": true,
//   "assignedLicenses": [
//     { 
//       "disabledPlans": [
//         "bea13e0c-3828-4daa-a392-28af7ff61a0f"
//       ],
//       "skuId": "skuId-value"
//     }
//   ],
//   "assignedPlans": [
//     { 
//       "assignedDateTime": "datetime-value",
//       "capabilityStatus": "capabilityStatus-value",
//       "service": "service-value",
//       "servicePlanId": "bea13e0c-3828-4daa-a392-28af7ff61a0f"
//     }
//   ],
//   "businessPhones": [
//     "businessPhones-value"
//   ],
//   "city": "city-value",
//   "companyName": "companyName-value"
// }
end;