Can't generate unit from valid json

[ptrocewicz]

Sample json:

{ "promotions":[ { "id":1, "title":"Special offer", "start_at":"2014-11-01 00:00:00", "finish_at":"2014-11-05 00:00:00", "promotion_type":1, "promotion_value":5000, "promotion_on_type":1, "products":[ 1, 2 ], "promotion_on_value":[ 1, 2 ], "activate":2, "created_at":"2011-09-22 01:15:35" }, { "id":2, "title":"Winter sale", "start_at":"2014-12-01 00:00:00", "finish_at":"2014-12-30 00:00:00", "promotion_type":2, "promotion_value":25, "promotion_on_type":1, "products":[ 1, 2 ], "promotion_on_value":[ 1, 2 ], "activate":2, "created_at":"2011-09-22 01:15:35" } ] }

[ahausladen]

What do you mean by "can't generate unit" ? JsonDataObjects can read that JSON string.

[ptrocewicz]

It crashes on line 556 in Pkg.Json.Mapper (Delphi 10.3.3): Lines.AddFormat(' %s: TObjectList<%s>;', [StubField.FieldName, StubArrayField.FieldClass.Name]);

[ahausladen]

So you are not using my JsonDataObjects unit but reporting a bug in Delphi's own JSON library? Delphi's JSON library uses the same class names, so it could happen that TJsonObject is not from JsonDataObjects but from System.JSON.pas

[ahausladen]

Could it be that you do a hard type cast "TJsonObject(obj)" somewhere but you cast to the wrong TJsonObject class.

[ptrocewicz]

Sorry, my mistake, wrong github repo .