(Delphi DLL) Understanding JSON Array vs JSON Object

This example explains the difference between a JSON Array and a JSON Object. A JSON Array begins with "[" and ends with "]", whereas a JSON Object begins with "{" and ends with "}".

Elements contained in a JSON array are accessed by index, whereas elements in a JSON object are typically accessed by name (but can also be accessed by index).

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
strJsonArray: PWideChar;
jsonA: HCkJsonArray;
success: Boolean;
strJsonObj: PWideChar;
jsonO: HCkJsonObject;

begin
// A JSON array should be loaded into a Chilkat JSON array,
// whereas a JSON object should be loaded into a Chilkat JSON object.

// A JSON array may contain objects, and a JSON object may contains arrays, but
// it is the top-level (outermost) element that defines whether the JSON
// document is an array or an object.
// An array begins and ends with "[" ... "]"
// An object begins and ends with "{" ... "}"

// For example, an array containing 2 objects:
strJsonArray := '[ { "name": "Bill" }, { "name": "Ted" } ]';

// Load it into a JSON array.
jsonA := CkJsonArray_Create();
success := CkJsonArray_Load(jsonA,strJsonArray);
Memo1.Lines.Add('number of array elements: ' + IntToStr(CkJsonArray_getSize(jsonA)));

// This is an object containing an array:
strJsonObj := '{ "characters": [ "Bill", "Ted" ] }';

// Load it into a JSON object.
jsonO := CkJsonObject_Create();
success := CkJsonObject_Load(jsonO,strJsonObj);
Memo1.Lines.Add('number of object members: ' + IntToStr(CkJsonObject_getSize(jsonO)));

CkJsonArray_Dispose(jsonA);
CkJsonObject_Dispose(jsonO);

end;