(Delphi DLL) Iterate JSON where Member Names are Data Values

Demonstrates how to parse JSON where member names are not keywords, but instead are data values.

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;
success: Boolean;
numMembers: Integer;
i: Integer;
name: PWideChar;
jRecord: HCkJsonObject;

begin
json := CkJsonObject_Create();

success := CkJsonObject_LoadFile(json,'qa_data/json/valuesAsNames.json');

// Imagine we have JSON such as the following:

// {
//   "1680": {
//     "entity_id": "1680",
//     "type_id": "simple",
//     "sku": "123"
//   },
//   "1701": {
//     "entity_id": "1701",
//     "type_id": "simple",
//     "sku": "456"
//   }
// }
// 

// This presents a parsing problem because the member names, such as "1680"
// are not keywords.  Instead they are data values.  We don't know what they
// may be in advance.  

// To solve, we iterate over the members, get the name of each, ...
numMembers := CkJsonObject_getSize(json);

for i := 0 to numMembers - 1 do
  begin

    name := CkJsonObject__nameAt(json,i);

    Memo1.Lines.Add(name + ':');
    jRecord := CkJsonObject_ObjectAt(json,i);

    Memo1.Lines.Add('entity_id: ' + CkJsonObject__stringOf(jRecord,'entity_id'));
    Memo1.Lines.Add('type_id: ' + CkJsonObject__stringOf(jRecord,'type_id'));
    Memo1.Lines.Add('sku: ' + CkJsonObject__stringOf(jRecord,'sku'));

    CkJsonObject_Dispose(jRecord);

  end;

CkJsonObject_Dispose(json);

end;