Delphi ActiveX

Sort JSON Object by Member Key Name

See more JSON Examples

Demonstrates how to sort the members of a JSON object by the key name. 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
json: TChilkatJsonObject;
ascending: Integer;
caseSensitive: Integer;
jsonAbc: TChilkatJsonObject;

begin
json := TChilkatJsonObject.Create(Self);

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

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

// 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 := 1;
caseSensitive := 1;
json.Sort(ascending,caseSensitive);

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

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

// Now sort the members of the "abc" object..
jsonAbc := TChilkatJsonObject.Create(Self);
json.ObjectOf2('abc',jsonAbc.ControlInterface);

jsonAbc.Sort(ascending,caseSensitive);

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

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