Pascal (Lazarus/Delphi)

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. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.JsonObject;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  json: TJsonObject;
  ascending: Boolean;
  caseSensitive: Boolean;
  jsonAbc: TJsonObject;

begin
  json := TJsonObject.Create;

  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 := False;
  WriteLn(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 := True;
  caseSensitive := True;
  json.Sort(ascending,caseSensitive);

  //  Look at the sorted JSON..
  WriteLn(json.Emit());

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

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

  jsonAbc.Sort(ascending,caseSensitive);

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

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


  json.Free;
  jsonAbc.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.