Delphi DLL Requires Chilkat v11.0.0+

JSON AppendArray2 Example

Demonstrates the AppendArray2 function. Delphi DLL

var
json: HCkJsonObject;
jarr: HCkJsonArray;

begin
json := CkJsonObject_Create();
CkJsonObject_Load(json,'{ "name": "John", "marbles": 100 }');

//  Append an empty array named "xyz"
jarr := CkJsonArray_Create();
CkJsonObject_AppendArray2(json,'xyz',jarr);

Memo1.Lines.Add(CkJsonObject__emit(json));
//  Expected output is:   {"name":"John","marbles":100,"xyz":[]}

//  Add elements to the array.
CkJsonArray_AddStringAt(jarr,-1,'hello');
CkJsonArray_AddIntAt(jarr,-1,256);

Memo1.Lines.Add(CkJsonObject__emit(json));
//  Expected output is:  {"name":"John","marbles":100,"xyz":["hello",256]}

CkJsonObject_Dispose(json);
CkJsonArray_Dispose(jarr);