(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.

IMPORTANT: This example requires a pre-release for the next version of Chilkat after the current v9.5.0.99 release. Contact info@chilkatsoft.com if you wish to get a pre-release. However, pre-releases of .NET Core (hosted on NuGet) and Node.js will not be possible.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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: IChilkatJsonObject;

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 := json.ObjectOf('abc');
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;