Delphi ActiveX

Load a JsonArray

See more JSON Examples

Demonstrates how to load a JsonArray.

Note: This example requires Chilkat v9.5.0.64 or greater.

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
a: TChilkatJsonArray;
json: TChilkatJsonObject;
abc: IChilkatJsonArray;

begin
// This example requires Chilkat v9.5.0.64 or greater.

// Loading into a new JSON array is simple and straightforward.
a := TChilkatJsonArray.Create(Self);
a.Load('[ 1,2,3,4 ]');

// Output:  [1,2,3,4]
Memo1.Lines.Add(a.Emit());
Memo1.Lines.Add('--------');

// The JsonArray's Load and LoadSb methods have a peculiar behavior when
// it is already part of a JSON document.  In this case, the JsonArray
// becomes detached, and the original document remains unchanged.
// This is intentional due to the nature of the internal implementation.
// For example:

json := TChilkatJsonObject.Create(Self);
json.Load('{ "abc": [ 1,2,3,4 ] }');

// Output:  (json) {"abc":[1,2,3,4]}
Memo1.Lines.Add('(json) ' + json.Emit());
Memo1.Lines.Add('--------');

abc := json.ArrayOf('abc');
// When Load is called, abc becomes it's own document, and the original is not modified.
abc.Load('[ 5,6,7,8 ]');

// Output: (abc) [5,6,7,8]
Memo1.Lines.Add('(abc) ' + abc.Emit());
Memo1.Lines.Add('--------');

// Output: (json) {"abc":[1,2,3,4]}
Memo1.Lines.Add('(json) ' + json.Emit());
Memo1.Lines.Add('--------');
end;