TJsonObject Parsen

[Sir Rufo]

Wie in den anderen Threads schon genannt:

Strukturen definieren und einfach benutzen:

Code:

{
  "foo":{
    "items":[
      {
        "name":"bla"
      },
      {
        "name":"blupp"
      }
    ]
  },
  "bar":{
    "items":[
      {
        "name":"blabla"
      },
      {
        "name":"blubber"
      }
    ]
  }
}

Delphi-Quellcode:

type
  TItemJSON = class
  private
    [JsonName('name')]
    FName: string;
  public
    property Name: string read FName;
  end;

  TItemsJSON = class
  private
    [JsonName('items')]
    FItems: TArray<TItemJSON>;
  public
    property Items: TArray<TItemJSON> read FItems;
  end;

  TContainerJSON = class
  private
    [JsonName('foo')]
    FFoo: TItemsJSON;
    [JsonName('bar')]
    FBar: TItemsJSON;
  public
    property Foo: TItemsJSON read FFoo;
    property Bar: TItemsJSON read FBar;
  end;