Procedure Habilitation SupprimerHabilitationObjet(O : Nul Ou Objet);
Le paramètre O identifie l'objet.
L'habilitation au niveau d'un objet est spécifique à cet objet. Pour les objets quelconques de ce type, il est possible de leur gérer des habilitations génériques au moyen des procédures AjouterHabilitationType, LireHabilitationType, ModifierHabilitationType et SupprimerHabilitationType.
Si l'habilitation n'existe pas, l'exception SupprimerHabilitationImpossible est envoyée.
Type T Defaut Habilitation
/************************/
Procedure Habilitation P();
C : Entier;
...
Fin Type
/****************************************************************/
Procedure Habilitation T.P()
/* Objet : Methode supportant les habilitations. */
/****************************************************************/
Debut
...
Fin Procedure
Principal
/*******/
Variable
/******/
R : Nul Ou Role;
O : Nul Ou T;
Debut
...
R.SupprimerHabilitationObjet(O);
/* On supprime l'habilitation. */
...
Fin Principal
| - | - | - | - | - | - | - | - | - |