Procedure Habilitation LireHabilitationProprieteObjet(O : Nul Ou Objet, P : Nul Ou Caractere, CreationAutorisee : Booleen Sortie, DestructionAutorisee : Booleen Sortie, LectureAutorisee : Booleen Sortie, ModificationAutorisee : Booleen Sortie);
Le paramètre O identifie l'objet. Le paramètre N identifie la propriété par son nom. Les paramètres CreationAutorisee, DestructionAutorisee, LectureAutorisee, ModificationAutorisee spécifient si l'habilitation est d'autoriser ou non respectivement la création d'une propriété dynamique, la destruction d'une propriété dynamique, la lecture d'une propriété et la modification d'une propriété.
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 AjouterHabilitationProprieteType, LireHabilitationProprieteType, ModifierHabilitationProprieteType et SupprimerHabilitationProprieteType.
Si l'habilitation n'existe pas ou si la propriété n'existe pas, l'exception LireHabilitationImpossible est envoyée.
Type T Defaut Habilitation
/************************/
Procedure Habilitation P();
C : Entier;
...
Fin Type
Principal
/*******/
Variable
/******/
R : Nul Ou Role;
O : Nul Ou T;
BCreation : Booleen;
BDestruction : Booleen;
BLecture : Booleen;
BModification : Booleen;
Debut
...
R.LireHabilitationProprieteObjet(O, "C", BCreation, BDestruction, BLecture, BModification);
/* On lit l'etat de l'habilitation. */
...
Fin Principal
| - | - | - | - | - | - | - | - | - |