Null Property Object

[marcianobandeira]

Hi,

Parser does not respect null property.

Example:

type
TPerson = class
Code: Integer;
Name: String;
end;

TOrder = class
Code: Integer;
Person: TPerson;
end;

procedure TForm1.FormCreate(Sender: TObject);
var order: TOrder;
begin
order := TJSON.Parse('{"Code":1,"Person":null}');
if order.Person <> nil then
raise Exception.Create('Error');
end;