(Delphi ActiveX) Create a JSON Array of Objects

Demonstrates how to create a JSON array of 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
arr: TChilkatJsonArray;
success: Integer;
obj: IChilkatJsonObject;

begin
arr := TChilkatJsonArray.Create(Self);

// Add an empty object at the 1st JSON array position.
arr.AddObjectAt(0);
// Get the object we just created.
obj := arr.ObjectAt(0);
obj.UpdateString('Name','Otto');
obj.UpdateInt('Age',29);
obj.UpdateBool('Married',0);

// Add an empty object at the 2nd JSON array position.
arr.AddObjectAt(1);
obj := arr.ObjectAt(1);
obj.UpdateString('Name','Connor');
obj.UpdateInt('Age',43);
obj.UpdateBool('Married',1);

// Add an empty object at the 3rd JSON array position.
arr.AddObjectAt(2);
obj := arr.ObjectAt(2);
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
//   }
// ]
end;