(Delphi DLL) Create a JSON Array of Objects

Demonstrates how to create a JSON array of objects.

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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
arr: HCkJsonArray;
success: Boolean;
obj: HCkJsonObject;

begin
arr := CkJsonArray_Create();

// Add an empty object at the 1st JSON array position.
CkJsonArray_AddObjectAt(arr,0);
// Get the object we just created.
obj := CkJsonArray_ObjectAt(arr,0);
CkJsonObject_UpdateString(obj,'Name','Otto');
CkJsonObject_UpdateInt(obj,'Age',29);
CkJsonObject_UpdateBool(obj,'Married',False);
CkJsonObject_Dispose(obj);

// Add an empty object at the 2nd JSON array position.
CkJsonArray_AddObjectAt(arr,1);
obj := CkJsonArray_ObjectAt(arr,1);
CkJsonObject_UpdateString(obj,'Name','Connor');
CkJsonObject_UpdateInt(obj,'Age',43);
CkJsonObject_UpdateBool(obj,'Married',True);
CkJsonObject_Dispose(obj);

// Add an empty object at the 3rd JSON array position.
CkJsonArray_AddObjectAt(arr,2);
obj := CkJsonArray_ObjectAt(arr,2);
CkJsonObject_UpdateString(obj,'Name','Ramona');
CkJsonObject_UpdateInt(obj,'Age',34);
CkJsonObject_UpdateBool(obj,'Married',True);
CkJsonObject_Dispose(obj);

// Examine what we have:
CkJsonArray_putEmitCompact(arr,False);
Memo1.Lines.Add(CkJsonArray__emit(arr));

// The output is:

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

CkJsonArray_Dispose(arr);

end;