TJson.JsonToObject funktioniert unter Delphi 10.3 nicht mehr wie unter 10.2

[Neutral General]

Auch wenn es nicht schön ist, aber man kann eine Kopie der Unit machen, den Bug fixen und dann die korrigierte Unit in seinen Suchpfad aufnehmen.
So haben wir es gemacht. Ist nicht zu Open Source in dem Sinne, aber man kann sich damit auf jeden Fall selbst helfen bis zum nächsten Patch

[rd3]

Yo, da stimme ich zu. Man konzentriert sich darauf, wer der nächste Eigentümer von RAD-Studio & Co. ist, statt auf Produktqualität. Schlimm genug, dass die Verbreitung so gering ist, dass ich eine beantwortete(!) Frage zu diesem Thema nicht bei StackOverFlow finde. Im Delphi-Forum und bei Delphi Praxis war ich im letzten Jahrzehnt, als Kollege jaenicke, narses, luckie & Co. die Delphi-Welt noch bei Laune gehalten haben... So, um nicht weiter zu nerven und in Nostalgie mit Themen zu verfallen, die die echten Themen überwiegen, höre ich lieber auf...

EDIT: ja, das mit dem Kopie ziehen und in sein Projektverzeichnis legen wurde mir irgendwann dann zu dämlich. Dieses Projekt noch... Immerhin war ich 5 Jahre abstinent bei Delphipraxis und im Delphi-Forum und hatte sogar in beiden Foren meinen User gelöscht. Nun das wieder...

[Der schöne Günther]

Erinnert mich an In Which I Argue That Embarcadero Should Open Source Their Unit Tests.

[rd3]

Ja, so ungefähr...

[Uwe Raabe]

Der Grund für diesen Fehler liegt an dem veränderten Aufbau von TListHelper. In Delphi 10.3 Rio ist das Feld FItems am Anfang hinzu gekommen.

Delphi-Quellcode:

  private var
    FItems: Pointer;
    FCount: Integer;
    FTypeInfo: Pointer;
    [unsafe] FListObj: TObject;
    FNotify: TInternalNotifyProc;
    FCompare: TInternalCompareFunc;
    function GetElType: Pointer; inline;
    function GetElSize: NativeInt; inline;

In den davor liegenden Versionen war noch FCount das erste Feld:

Delphi-Quellcode:

  private var
    FCount: Integer;
    FTypeInfo: Pointer;
    FNotify: TInternalNotifyEvent;
    FCompare: TInternalCompareEvent;
    function GetFItems: PPointer; inline;
    function GetElType: Pointer; inline;
    function GetElSize: Integer; inline;

Was der Entwickler, der diese Änderung sicher guten Gewissens eingebaut hat, offenbar nicht wusste: Die Anordnung der Felder wird in REST.JsonReflect in Form eines Dirty-Hacks verwendet. Ihn trifft insofern auch keine Schuld.

So rächt es sich eben, wenn man bei der Implementierung eines Sonderfalls (hier TListHelper.FCount) zu hastig agiert und die Sorgfalt vernachlässigt (labil agile Softwareentwicklung). Eine stabile Lösung hätte sicher etwas mehr Planung erfordert.

Der fragwürdige Code ist übrigens schon seit Delphi 10 Seattle vorhanden (stammt also noch aus der Zeit vor Idera) und es hat sich seitdem offenbar noch niemand daran gestoßen. Bei einem Code-Review durch einen erfahrenen Delphi-Entwickler wäre das mit hoher Wahrscheinlichkeit durchgefallen. Ohne einen entsprechenden Regressiontest kann man sowas im Nachhinein aber einfach nicht finden.

Wenn als Fix nun auch noch lediglich der Array-Index von 0 auf 1 und der Wert für die Längenabfrage auf 2 verändert wird, dann ist der Entwicklungsabteilung aber wirklich nicht mehr zu helfen.

[rd3]

Delphi hat keine Existenzberechtigung mehr.

[sh17]

Herje, peinlich, danke Uwe

[Der schöne Günther]

Zitat von Uwe Raabe:

Wenn als Fix nun auch noch lediglich der Array-Index von 0 auf 1 und der Wert für die Längenabfrage auf 2 verändert wird (…)

Ich bin gespannt 😂

Ich meine, alle Unit-Tests werden grün, die Kunden sind zufrieden...

[Uwe Raabe]

Zitat von Der schöne Günther:

Ich meine, alle Unit-Tests werden grün, die Kunden sind zufrieden...

Das sehe ich als eine der größten Gefahren des test-basierten Bug-Fixings.

[Der schöne Günther]

Klar. Aber ich sehe zumindest den Vorteil dass, wenn Embarcadero einen Test für diesen exotischen Anwendungsfall hätte, er rot wird bevor sie ausliefern.