(Delphi ActiveX) Load a JSON Array

The Chilkat JSON API requires the top-level JSON to be an object. Therefore, to load an array requires that it first be wrapped as an object.

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
success: Integer;
jsonArrayStr: WideString;
sbJson: TChilkatStringBuilder;
json: TChilkatJsonObject;
jArray: IChilkatJsonArray;
jObjId: IChilkatJsonObject;

begin
// Imagine we want to load this JSON array for parsing:
jsonArrayStr := '[{"id":200},{"id":196}]';

// First wrap it in a JSON object by prepending "{ "array":" and appending "}"
sbJson := TChilkatStringBuilder.Create(Self);
sbJson.Append('{"array":');
sbJson.Append(jsonArrayStr);
sbJson.Append('}');

json := TChilkatJsonObject.Create(Self);
json.Load(sbJson.GetAsString());

// Now we can get the JSON array
jArray := json.ArrayAt(0);

// Do what you want with the JSON array...
// For example:
jObjId := jArray.ObjectAt(0);
Memo1.Lines.Add(IntToStr(jObjId.IntOf('id')));
end;