Procedure Habilitation EnvoyerException(E : Nul Ou Exception, P1 : Nul Ou Caractere=Nul, P2 : Nul Ou Caractere=Nul, P3 : Nul Ou Caractere=Nul, P4 : Nul Ou Caractere=Nul, P5 : Nul Ou Caractere=Nul);
La méthode EnvoyerException a le même effet que la méthode Envoyer du type Exception.
Constante
/*******/
NbPatientsMax=100;
Variable
/******
NbPatients : Entier;
Exception
/*******/
TropDePatients("TropDePatients", 100);
/* 'TropDePatients' est envoyée s'il y a trop de patients. Le message associe comporte un paramètre qui est le nombre maximal de patients autorises. */
Principal
/*******/
Debut
...
Si NbPatients > NbPatientsMax Alors
TachePrincipale.EnvoyerException(TropDePatients,Caractere(NbPatientsMax));
Fin Si
...
Fin Principal
- | - | - | - | - | - | - | - | - |