Delphi DLL

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

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
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);

end;