(Delphi ActiveX) Load JSON Data at Path

Demonstrates how to load JSON data into a path within a JSON database. For example, we begin with this JSON:

{
  "a": 1,
  "b": 2,
  "c": {
    "x": 1,
    "y": 2
  }
}

{
  "a": 1,
  "b": 2,
  "c": {
    "mm": 11,
    "nn": 22
  }
}

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
p: WideString;
json: TChilkatJsonObject;
q: WideString;
c: IChilkatJsonObject;

begin
// Demonstrates how to load replace the data at a location within a JSON database.

p := '{"a": 1, "b": 2, "c": { "x": 1, "y": 2 } }';

json := TChilkatJsonObject.Create(Self);
json.Load(p);
json.EmitCompact := 0;
Memo1.Lines.Add(json.Emit());

q := '{"mm": 11, "nn": 22}';

c := json.ObjectOf('c');
c.Load(q);

// See that x and y are replaced with mm and nn.
Memo1.Lines.Add(json.Emit());
end;