(Delphi DLL) Swap JSON Objects

Demonstrates how to swap two JSON objects within a JSON document.

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

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;
index1: Integer;
index2: Integer;
jsonSara: HCkJsonObject;

begin
json := CkJsonObject_Create();
CkJsonObject_putEmitCompact(json,False);

// Load the following JSON:

// {
//   "petter": {
//     "DOB": "26/02/1986",
//     "gender": "male",
//     "country": "US"
//   },
//   "Sara": {
//     "DOB": "13/05/1982",
//     "gender": "female",
//     "country": "FR"
//   },
//   "Jon": {
//     "DOB": "19/03/1984",
//     "gender": "male",
//     "country": "UK"
//   }
// }

success := CkJsonObject_LoadFile(json,'qa_data/json/people.json');
// Assume success..

// Swap the positions of Jon and Sara.
index1 := CkJsonObject_IndexOf(json,'Jon');
index2 := CkJsonObject_IndexOf(json,'Sara');
CkJsonObject_Swap(json,index1,index2);

// We have this now:
Memo1.Lines.Add(CkJsonObject__emit(json));

// {
//   "petter": {
//     "DOB": "26/02/1986",
//     "gender": "male",
//     "country": "US"
//   },
//   "Jon": {
//     "DOB": "19/03/1984",
//     "gender": "male",
//     "country": "UK"
//   },
//   "Sara": {
//     "DOB": "13/05/1982",
//     "gender": "female",
//     "country": "FR"
//   }
// }

// To swap an inner member:
jsonSara := CkJsonObject_ObjectOf(json,'Sara');
index1 := CkJsonObject_IndexOf(jsonSara,'DOB');
index2 := CkJsonObject_IndexOf(jsonSara,'country');
CkJsonObject_Swap(jsonSara,index1,index2);
CkJsonObject_Dispose(jsonSara);

// We now have this:
Memo1.Lines.Add(CkJsonObject__emit(json));

// {
//   "petter": {
//     "DOB": "26/02/1986",
//     "gender": "male",
//     "country": "US"
//   },
//   "Jon": {
//     "DOB": "19/03/1984",
//     "gender": "male",
//     "country": "UK"
//   },
//   "Sara": {
//     "country": "FR",
//     "gender": "female",
//     "DOB": "13/05/1982"
//   }
// }

CkJsonObject_Dispose(json);

end;