Delphi DLL Requires Chilkat v11.0.0+

Copy JSON Object from one JSON Array to Another

See more JSON Examples

Demonstrates how to copy an object in a JSON array to another JSON array. Delphi DLL

var
arr1: HCkJsonArray;
arr2: HCkJsonArray;
s: PWideChar;
sEmpty: PWideChar;
jObj: HCkJsonObject;

begin
arr1 := CkJsonArray_Create();
arr2 := CkJsonArray_Create();

s := '[{"a":1}, {"b":2}, {"c":3}]';
sEmpty := '[]';

CkJsonArray_Load(arr1,s);
CkJsonArray_Load(arr2,sEmpty);

jObj := CkJsonObject_Create();
CkJsonArray_ObjectAt2(arr1,1,jObj);

CkJsonArray_AddObjectCopyAt(arr2,-1,jObj);

Memo1.Lines.Add(CkJsonArray__emit(arr2));

//  output is:   [{"b":2}]

CkJsonArray_Dispose(arr1);
CkJsonArray_Dispose(arr2);
CkJsonObject_Dispose(jObj);