Delphi ActiveX Requires Chilkat v11.0.0+

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

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"
//  }