Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.453 Beiträge
 
Delphi 12 Athens
 
#6

AW: JsonToObject überreden ein leeres Objekt zu verarbeiten

  Alt 6. Feb 2024, 10:24
In der Tat, mit Delphi 12 bekomme ich den Fehler auch. Der relevante Code ist dort neu hinzugekommen, versäumt aber die Prüfung auf LField <> nil .

Eigentlich sollte die Prüfung schon viel früher erfolgen:
Delphi-Quellcode:
    LField := GetFieldType(Data, FieldName);
    if (LField <> nil) and not (LField.DataType.TypeKind in [tkClass, tkInterface]) and not LField.IsWritable then
    begin
      Inc(I);
      Continue;
    end;
Das Continue sollte auch bei LField = nil passieren.

Das QP ja aktuell nichts mehr annimmt werde ich mal andere Kanäle versuchen.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat