Delphi ActiveX Requires Chilkat v11.0.0+

JSON AppendObject2 Example

Demonstrates the AppendObject2 function. Delphi ActiveX

var
json: TChilkatJsonObject;
jObj: TChilkatJsonObject;

begin
json := TChilkatJsonObject.Create(Self);
json.Load('{ "name": "John", "marbles": 100 }');

//  Append an empty object named "addr"
jObj := TChilkatJsonObject.Create(Self);
json.AppendObject2('addr',jObj.ControlInterface);

Memo1.Lines.Add(json.Emit());
//  Expected output is:   {"name":"John","marbles":100,"addr":{}}

//  Add members to the object.
jObj.AppendString('street','1200 Elm St.');
jObj.AppendString('city','Springfield');
jObj.AppendInt('zip',60606);

Memo1.Lines.Add(json.Emit());
//  Expected output is:  {"name":"John","marbles":100,"addr":{"street":"1200 Elm St.","city":"Springfield","zip":60606}}