(Delphi DLL) JSON Insert Empty Array or Object

Demonstrates how to use the UpdateNewArray and UpdateNewObject methods to insert an empty array or object.

Note: The UpdateNewArray an UpdateNewObject methods were introduced in Chilkat v9.5.0.75.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
json: HCkJsonObject;
success: Boolean;

begin
json := CkJsonObject_Create();

// The following code builds the following JSON, which contains both an empty array and empty object:

// 	{
// 	  "abc": {
// 	    "xyz": [
// 	      {
// 	        "Name": "myName",
// 	        "Description": "description",
// 	        "ScheduleDefinition": "schedule definition",
// 	        "ExceptionScheduleDefinition": "",
// 	        "Attribute": [
// 	        ],
// 	        "SomeEmptyObject": {},
// 	        "token": "token"
// 	      }
// 	    ]
// 	  }
// 	}

CkJsonObject_UpdateString(json,'abc.xyz[0].Name','myName');
CkJsonObject_UpdateString(json,'abc.xyz[0].Description','description');
CkJsonObject_UpdateString(json,'abc.xyz[0].ScheduleDefinition','schedule definition');
CkJsonObject_UpdateString(json,'abc.xyz[0].ExceptionScheduleDefinition','');
CkJsonObject_UpdateNewArray(json,'abc.xyz[0].Attribute');
CkJsonObject_UpdateNewObject(json,'abc.xyz[0].SomeEmptyObject');
CkJsonObject_UpdateString(json,'abc.xyz[0].token','token');

CkJsonObject_putEmitCompact(json,False);
Memo1.Lines.Add(CkJsonObject__emit(json));

CkJsonObject_Dispose(json);

end;