Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Delphi ActiveX) JSON AppendObjectCopy ExampleDemonstrates the AppendObjectCopy function. Note: This example requires Chilkat v9.5.0.82 or above.
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 json: TChilkatJsonObject; json2: TChilkatJsonObject; begin json := TChilkatJsonObject.Create(Self); json.Load('{ "name": "John", "marbles": 100 }'); json2 := TChilkatJsonObject.Create(Self); json2.Load('{"street":"1200 Elm St.","city":"Springfield","zip":60606}'); // Copy the contents of json2 to a new member object named "addr". json.AppendObjectCopy('addr',json2.ControlInterface); Memo1.Lines.Add(json.Emit()); // Expected output is: {"name":"John","marbles":100,"addr":{"street":"1200 Elm St.","city":"Springfield","zip":60606}} // Note: Modifying the contents of json does not modify the contents of json2 (because the contents of json2 were copied). // For example: json.UpdateString('addr.street','1000 Oak St.'); Memo1.Lines.Add(json.Emit()); // Expected output is: {"name":"John","marbles":100,"addr":{"street":"1000 Oak St.","city":"Springfield","zip":60606}} Memo1.Lines.Add(json2.Emit()); // Expected output is: {"street":"1200 Elm St.","city":"Springfield","zip":60606} end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.