(Delphi DLL) JSON: Renaming and Deleting Members

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

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

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();

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

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

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

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

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

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

CkJsonObject_Dispose(json);

end;