Delphi ActiveX Requires Chilkat v11.4.0+

Example: JsonObject.NewObjectOf method

Demonstrates the NewObjectOf method. Delphi ActiveX

var
success: Integer;
car: WideString;
json: TChilkatJsonObject;

begin
success := 0;

car := '{"make":"Toyota","model":"Camry","year":2022,"color":"silver","engine":{"type":"inline-4","fuel":"gasoline","horsepower":203},"features":["bluetooth","backup camera","adaptive cruise control","lane assist"],"isElectric":false}';

json := TChilkatJsonObject.Create(Self);

json.UpdateString('test','abc');

success := json.NewObjectOf('car',car);
if (success = 0) then
  begin
    Memo1.Lines.Add(json.LastErrorText);
    Exit;
  end;

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

//  Result:

//  {
//    "test": "abc",
//    "car": {
//      "make": "Toyota",
//      "model": "Camry",
//      "year": 2022,
//      "color": "silver",
//      "engine": {
//        "type": "inline-4",
//        "fuel": "gasoline",
//        "horsepower": 203
//      },
//      "features": [
//        "bluetooth",
//        "backup camera",
//        "adaptive cruise control",
//        "lane assist"
//      ],
//      "isElectric": false
//    }
//  }