Procedure Habilitation FixerValidationEnregistrement(Verification : Nul Ou Fonction(O : Nul Ou Objet, M : Nul Ou Caractere Sortie) Retourner Booleen);
Par convention, la fonction Validation admettant en paramètre un objet à tester doit retourner Vrai s'il est valide. Sinon l'enregistrement est rejetté et le paramètre Message doit contenir la raison du rejet.
Les paramètres de la fonction de validation sont les suivants :
Type Employe Defaut
/*****************/
Public :
Nom : Caractere;
Constructeur();
Fin Type
/****************************************************************/
Fonction MaValidation(O : Nul Ou Objet, M : Nul Ou Caractere Sortie) Retourner Booleen
/* Objet : Retourne Vrai si l'objet est validé. */
/****************************************************************/
Variable
/******/
E : Employe;
Debut
Si O==Nul Alors
Message="L'objet doit être non nul.";
Retourner Faux;
Fin Si
E=Employe(O);
...
Fin Fonction
Principal
/*******/
Variable
/******/
E : Nul Ou IEchange;
Debut
...
E.FixerValidationEnregistrement(MaValidation);
/* Valide les enregistrements. */
...
Fin Principal
- | - | - | - | - | - | - | - | - |