Table des matières

DBG : Paramètres et problèmes

Problèmes

-CR et transtypage

Dans le code suivant :

  1. program TestHeritageJson;
  2. uses
  3. fpjson, jsonparser;
  4. type
  5. TJSonObjectChild = class(TJsonObject);
  6. var
  7. vJO: TJSonObjectChild;
  8. vJSD: TJSonData;
  9. begin
  10. vJSD := GetJSON('{"name" : "test"}');
  11. vJO := TJSonObjectChild(vJSD); { ICI exception class 'RunError(219)' : Invalid typecast }
  12. Write(vJO.AsJSON);
  13. end.

J'obtiens une erreur a la ligne 11.
Cette erreur n'exsite plus si on désactive l'option -CR (Verify method calls) du Debugger