Delphi ActiveX Requires Chilkat v11.1.0+

Create a JSON Array of Objects

See more JSON Examples

Demonstrates how to create a JSON array of objects. Delphi ActiveX

var
success: Integer;
arr: TChilkatJsonArray;
obj: TChilkatJsonObject;

begin
success := 0;

arr := TChilkatJsonArray.Create(Self);

obj := TChilkatJsonObject.Create(Self);

//  Create a new and empty JSON object in the 1st position of the JSON array 
//  and return the reference in the last argument.
arr.AddObjectAt2(0,obj.ControlInterface);
obj.UpdateString('Name','Otto');
obj.UpdateInt('Age',29);
obj.UpdateBool('Married',0);

//  Create a new and empty JSON object in the 2nd position of the JSON array 
//  and return the reference in the last argument.
arr.AddObjectAt2(1,obj.ControlInterface);
obj.UpdateString('Name','Connor');
obj.UpdateInt('Age',43);
obj.UpdateBool('Married',1);

//  Create a new and empty JSON object in the 3rd position of the JSON array 
//  and return the reference in the last argument.
arr.AddObjectAt2(2,obj.ControlInterface);
obj.UpdateString('Name','Ramona');
obj.UpdateInt('Age',34);
obj.UpdateBool('Married',1);

//  Examine what we have:
arr.EmitCompact := 0;
Memo1.Lines.Add(arr.Emit());

//  The output is:

//  [
//    {
//      "Name": "Otto",
//      "Age": 29,
//      "Married": false
//    },
//    {
//      "Name": "Connor",
//      "Age": 43,
//      "Married": true
//    },
//    {
//      "Name": "Ramona",
//      "Age": 34,
//      "Married": true
//    }
//  ]