![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi ActiveX) Insert JSON Object into another JSON ObjectDemonstrates how to insert one JSON object into another. Effectively, the JSON object must be copied into the other.. Note: This example requires Chilkat v11.0.0 or greater.
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; 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" // ] // } jsonA.AddObjectCopyAt(1,'info',jsonB.ControlInterface); Memo1.Lines.Add(jsonA.Emit()); // The result is this: // { // "animal": "zebra", // "info": { // "type": "mammal", // "carnivore": false // }, // "colors": [ // "white", // "black" // ] // } end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.