JSON in Delphi

[Incocnito]

Hi Zusammen,

ich versuche das mal als Beispiel zusammenzufassen, also bitte nicht meckern, wenn nun vieles fehlt oder sinnlos erscheint, weil leer.

1) Ich habe ein JSON:

Code:

{
  "links": {
    "start": "bla",
    "xxx": "yyy",
    "zzz": "nnn"
  },
  "data": {
    "type": "wertA",
    "id": "wertB"
  },
  "included": [
    {
      "type": "wert1",
      "id": "wert2"
    }
  ]
}

Davon brauche ich aber nur "links", außerdem kann ich verschiedene JSON bekommen, aber "links" ist immer dabei. Also dachte ich mir "mache einfach eine class mit nur "links":

Delphi-Quellcode:

  type T2 = class
    FStart : String;
    FXxx   : String;
    FZzz   : String;
  end;
  type T1 = class
  private
    FLinks : T2;
  end;

dazu passen sage ich dann:
TempRes := TJSON.JsonToObject<T1>(sContent); Hier fliegt er dann raus in REST.JSonReflect in
procedure TJSONUnMarshal.PopulateFields(JsonFields: TJSONObject; Data: TObject;
JsonCustomizer: TJSONPopulationCustomizer);
in Zeile 2969

Delphi-Quellcode:

        else if jsonFieldVal is TJSONArray then
        begin
          rField := GetFieldType(Data, FieldName);
          // Unmarshal TList<T>.FListHelper as dynamic array using 10.2 layout
          if (rField.FieldType.Handle = TypeInfo(System.Generics.Collections.TListHelper)) and // <- Hier
             (I < JsonFields.Count - 1) and
             (string.CompareText('listHelper', FieldName) = 0) and
             (string.CompareText('items', JsonFields.Pairs[I + 1].JsonString.Value) = 0) then
          begin

denn GetFieldType(Data, FieldName); gibt bei FieldName "included" den Wert "nil" zurück.
(Habe das Bild aus dem Debugger auch mal als Json_Err.jpg angehangen!)

Ich hoffe das ist irgendwie verständlich geschrieben.

Ist das ein bekannter Delphi-Fehler? Das wenn das letzte Objekt ein Array ist,
dass man die Klasse dann nicht kürzen kann oder sowas?
Ist es nicht möglich eine Klasse zu kürzen? Was wenn ich von einer Stelle ein Json bekomme
und irgendwann hängen die schonmal was an, ohne dass ich das mitbekomme?
Dann fliegt mir das Programm um die Ohren?

Hatte jemand das auch schonmal und kann das Verhalten bestätigen?

Nutzt ihr andere JSon-Parser, welche schneller/besser/toller sind,
oder in diesem Fall gar "Fehlerfrei" (falls ich selbst nicht einen Denkfehler drin habe)?

Vielen Dank schonmal für die Zeit!

Liebe Grüße
Incocnito