Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Geometria - eccezioni.pas

eccezioni.pas

 Caricato da: Poggi Marco
Scarica il programma completo

  1. unit eccezioni;
  2. {$mode objfpc}
  3.  
  4. interface
  5. uses sysutils;
  6.  
  7. type FuoriRange=class(Exception)
  8. private
  9.         messaggio:string;
  10. public
  11.         constructor crea(errore:string);
  12.         function getMessaggio:string;
  13. end;
  14.  
  15. implementation
  16.  
  17. constructor FuoriRange.crea(errore:string);
  18. begin
  19.         messaggio:=errore;
  20. end;
  21.  
  22. function FuoriRange.getMessaggio:string;
  23. begin
  24.         getMessaggio:=messaggio;
  25. end;
  26.  
  27. begin
  28.  
  29. end.