Delphi ActiveX

JSON: Renaming and Deleting Members

See more JSON Examples

Demonstrates renaming and deleting members. This example uses the following JSON document:

{
   "apple": "red",
   "lime": "green",
   "banana": "yellow",
   "broccoli": "green",
   "strawberry": "red"
}

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;

begin
success := 0;

json := TChilkatJsonObject.Create(Self);

success := json.Load('{"apple": "red","lime": "green","banana": "yellow","broccoli": "green","strawberry": "red"}');
if (success <> 1) then
  begin
    Memo1.Lines.Add(json.LastErrorText);
    Exit;
  end;

// Rename "lime" to "lemon".
success := json.Rename('lime','lemon');
// Change the color to yellow:
success := json.SetStringOf('lemon','yellow');

// Rename by index.  Banana is at index 2 (apple is at index 0)
success := json.RenameAt(2,'bartlett_pear');

// Delete broccoli by name
success := json.Delete('broccoli');

// Delete apple by index.  Apple is at index 0.
success := json.DeleteAt(0);

json.EmitCompact := 0;
Memo1.Lines.Add(json.Emit());
end;