(Delphi ActiveX) Insert JSON Object into another JSON Object

Demonstrates how to insert one JSON object into another. Effectively, the JSON object must be copied into the other..

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
jsonA: TChilkatJsonObject;
jsonB: TChilkatJsonObject;
jsonInfo: IChilkatJsonObject;

begin
// Imagine we have two separate JSON objects.
jsonA := TChilkatJsonObject.Create(Self);
jsonA.UpdateString('animal','zebra');
jsonA.UpdateString('colors[0]','white');
jsonA.UpdateString('colors[1]','black');

jsonA.EmitCompact := 0;
Memo1.Lines.Add(jsonA.Emit());

// jsonA contains:

// {
//   "animal": "zebra",
//   "colors": [
//     "white",
//     "black"
//   ]
// }

jsonB := TChilkatJsonObject.Create(Self);
jsonB.UpdateString('type','mammal');
jsonB.UpdateBool('carnivore',0);

jsonB.EmitCompact := 0;
Memo1.Lines.Add(jsonB.Emit());

// jsonB contains:

// {
//   "type": "mammal",
//   "carnivore": false
// }

// Let's say we want to insert jsonB into jsonA to get this:

// {
//   "animal": "zebra",
//   "info" " {
//       "type": "mammal",
//       "carnivore": false
// 	},
//   "colors": [
//     "white",
//     "black"
//   ]
// }

// First add an empty object at the desired location:
jsonA.AddObjectAt(1,'info');

// Get the JSON object at that location, and load the JSON..
jsonInfo := jsonA.ObjectOf('info');
jsonInfo.Load(jsonB.Emit());

Memo1.Lines.Add(jsonA.Emit());

// The end result is this:

// {
//   "animal": "zebra",
//   "info": {
//     "type": "mammal",
//     "carnivore": false
//   },
//   "colors": [
//     "white",
//     "black"
//   ]
// }
end;