Delphi ActiveX

JSON PathPrefix Example

Demonstrates the JSON object's PathPrefix property. Delphi ActiveX

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
success: Integer;
json: TChilkatJsonObject;
city: WideString;

begin
success := 0;

json := TChilkatJsonObject.Create(Self);

json.PathPrefix := 'company.billing.';

json.UpdateString('company_name','TechNova Solutions Inc.');
json.UpdateString('address_line_1','123 Innovation Drive');
json.UpdateString('address_line_2','Suite 450');
json.UpdateString('city','Seattle');
json.UpdateString('state_province','WA');
json.UpdateString('postal_code','98101');
json.UpdateString('country','USA');

json.EmitCompact := 0;

Memo1.Lines.Add(json.Emit());

// Result:

// {
//   "company": {
//     "billing": {
//       "company_name": "TechNova Solutions Inc.",
//       "address_line_1": "123 Innovation Drive",
//       "address_line_2": "Suite 450",
//       "city": "Seattle",
//       "state_province": "WA",
//       "postal_code": "98101",
//       "country": "USA"
//     }
//   }
// }

city := json.StringOf('city');
Memo1.Lines.Add('city = ' + city);
end;