Pascal (Lazarus/Delphi)

JSON AppendObjectCopy Example

Demonstrates the AppendObjectCopy function.

Note: This example requires Chilkat v9.5.0.82 or above.

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.JsonObject;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  json: TJsonObject;
  json2: TJsonObject;

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

  json2 := TJsonObject.Create;
  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);

  WriteLn(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.');
  WriteLn(json.Emit());
  //  Expected output is:  {"name":"John","marbles":100,"addr":{"street":"1000 Oak St.","city":"Springfield","zip":60606}}

  WriteLn(json2.Emit());
  //  Expected output is: {"street":"1200 Elm St.","city":"Springfield","zip":60606}


  json.Free;
  json2.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.