/***************************************************************/
Type Exception Defaut Final TailleSegment 16
/* Objet : Type des objets correspondant aux exceptions. */
/***************************************************************/
/*-------------------------------------------------------------*/
/* Heritage des proprietes d'Objet. */
/*-------------------------------------------------------------*/
Prive :
EstInstanceDe : Type Lecture Public;
/*-------------------------------------------------------------*/
/* Proprietes propres. */
/*-------------------------------------------------------------*/
Prive :
MessageErreur : Nul Ou Caractere Lecture Public;
CodeErreur : Entier Lecture Public Trace;
NomException : Caractere Lecture Public Trace;
NomSourceEnErreur : Nul Ou Caractere Lecture Public;
NumeroLigne : Entier Lecture Public;
NumeroColonne : Entier Lecture Public;
ModuleOrigine : Nul Ou Module Lecture Public;
EffetSurTransaction : ExceptionSurTransaction Lecture Public Trace;
/*-------------------------------------------------------------*/
/* Heritage des methodes d'Objet. */
/*-------------------------------------------------------------*/
Public :
Fonction Optimiser(Invariant) Identique(O : Nul Ou Objet) Retourner Nul Ou Booleen;
Procedure Convertir(O : Nul Ou Objet);
Fonction Optimiser(Invariant) CreeParLeServeur() Retourner Entier;
Fonction Optimiser(Invariant) CreeParLeProcessus() Retourner Entier;
Fonction Optimiser(Invariant) CreeDansLEntrepot() Retourner Entrepot;
Fonction Cloner(EntrepotCible : Nul Ou Entrepot=Nul, Profondeur : ModeClonage = ClonageObjetSeul) Retourner Nul Ou Objet;
Fonction LirePropriete(NomPropriete : Caractere) Retourner Nul Ou Objet;
Procedure EcrirePropriete(NomPropriete : Caractere, Valeur : Nul Ou Objet);
Fonction IncrementerDecrementerPropriete(NomPropriete : Nul Ou Caractere, Incrementer : Booleen, Prefixe : Booleen) Retourner Nul Ou Objet;
Procedure SupprimerPropriete(NomPropriete : Caractere);
Fonction Optimiser(Invariant) EnumererProprietes(NumeroPropriete : Entier, TypePropriete : Nul Ou Type=? Sortie, PeutEtreNul : Booleen=? Sortie, Aide : Nul Ou Caractere=? Sortie, NomEnumere : Nul Ou Caractere=? Sortie) Retourner Nul Ou Caractere;
Fonction Optimiser(Invariant) Adresse() Retourner Nul Ou Caractere;
Prive :
Fonction Exporter(E : Nul Ou IEchangeElementaire) Retourner Boolean;
Fonction Importer(E : Nul Ou IEchangeElementaire, EntrepotCible : Nul Ou Entrepot=Nul, EstFiltre : Booleen=Faux, V : Entier=0, R : Entier=0, C : Entier=0) Retourner Nul Ou Objet;
/*-------------------------------------------------------------*/
/* Methodes propres. */
/*-------------------------------------------------------------*/
Public :
Procedure Envoyer(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);
Procedure Renvoyer();
Prive :
Destructeur(MettreEnAnteMemoire : Booleen) Retourner Booleen;
Fin Type
Le type Exception modélise une exception.
Le type Exception ne possède pas de constructeur implicite.
Les objets de type Exception sont créés automatiquement lors du chargement des modules comportant des définitions d'exception.
Constante
/*******/
NbPatientsMax=100;
Variable
/******/
NbPatients : Entier;
Exception
/*******/
TropDePatients("TropDePatients", 100);
/* 'TropDePatients' est envoyée s'il y a trop de patient. */
/* Le message associe comporte un paramètre qui est le nombre maximal de patients autorises. */
Principal
/*******/
Debut
...
Si NbPatients>NbPatientsMax Alors
TropDePatients.Envoyer(Caractere(NbPatientsMax));
Fin Si
...
Fin Principal
| - | - | - | - | - | - | - | - | - |