QuotaMaximal : Entier Virtuel Lecture Public Trace;
Avant le déclenchement de l'appel, la valeur sert à armer une alarme. Si le temps d'exécution excède la valeur de cette propriété, alors l'exception QuotaTempsDepasse est envoyée.
/***************************************************************/
Procedure AfficherQuotas2(H : Nul Ou QuotaUnitaire, M : Caractere)
/* Objet : Affiche les quotas. */
/***************************************************************/
Variable
/******/
M2 : Caractere;
Debut
Si Q.Nom != Nul Alors
M2=Q+"."+Q.Nom+":";
Sinon
M2=M+":";
Fin Si
M2+=" "+Caractere(Q.QuotaMaximal)+" "+Caractere(Q.QuotaProportionnel);
Ecran.Ecrire(M2+"\n");
Fin Procedure
- | - | - | - | - | - | - | - | - |