UpsSys.EnvoyerExceptionAToutesLesTaches


Procedure Habilitation Optimiser(PasDEffetDeBord) EnvoyerExceptionAToutesLesTaches(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);

Description

La procédure EnvoyerExceptionAToutesLesTaches permet d'envoyer une exception à toutes les tâches sauf à la tâche courante lorsqu'une erreur est détectée. Le paramètre E est l'exception à envoyer. Les cinq autres paramètres sont les paramètres complémentaires du message d'erreur de l'exception.

La procédure EnvoyerExceptionAToutesLesTaches a le même effet que la méthode Envoyer du type Exception.

Exemple


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

	EnvoyerExceptionAToutesLesTaches(TropDePatients, Caractere(NbPatientsMax));

Fin Si 

...

Fin Principal

Voir aussi

La méthode EnvoyerException du type Tache pour envoyer une exception à une tâche.

Traduction


-	-	-	-	-	-	-	-	-