(Delphi DLL) Sort JSON Object by Member Key Name

See more JSON Examples

Note: This example requires Chilkat v11.0.0 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;
ascending: Boolean;
caseSensitive: Boolean;
jsonAbc: HCkJsonObject;

begin
json := CkJsonObject_Create();

CkJsonObject_UpdateString(json,'xyz','1234');
CkJsonObject_UpdateString(json,'abc.xyz','1234');
CkJsonObject_UpdateString(json,'abc.def','1234');
CkJsonObject_UpdateString(json,'abc.aaa','1234');
CkJsonObject_UpdateString(json,'ghi','1234');
CkJsonObject_UpdateString(json,'nmo','1234');

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

// This is our initial JSON:

// {
//   "xyz": "1234",
//   "abc": {
//     "xyz": "1234",
//     "def": "1234",
//     "aaa": "1234"
//   },
//   "ghi": "1234",
//   "nmo": "1234"
// }

// Sort the top-level JSON object by key.
ascending := True;
caseSensitive := True;
CkJsonObject_Sort(json,ascending,caseSensitive);

// Look at the sorted JSON..
Memo1.Lines.Add(CkJsonObject__emit(json));

// {
//   "abc": {
//     "xyz": "1234",
//     "def": "1234",
//     "aaa": "1234"
//   },
//   "ghi": "1234",
//   "nmo": "1234",
//   "xyz": "1234"
// }

// Now sort the members of the "abc" object..
jsonAbc := CkJsonObject_Create();
CkJsonObject_ObjectOf2(json,'abc',jsonAbc);

CkJsonObject_Sort(jsonAbc,ascending,caseSensitive);

// Now look at the JSON with the members under "abc" also sorted..
Memo1.Lines.Add(CkJsonObject__emit(json));

// {
//   "abc": {
//     "aaa": "1234",
//     "def": "1234",
//     "xyz": "1234"
//   },
//   "ghi": "1234",
//   "nmo": "1234",
//   "xyz": "1234"
// }

CkJsonObject_Dispose(json);
CkJsonObject_Dispose(jsonAbc);

end;