Procedure Habilitation FiltrerSelon(CritereFiltre : Nul Ou Fonction(O : Nul Ou Objet) Retourner Booleen);
Procedure Habilitation FiltrerSelon(CritereFiltre : Nul Ou Caractere);
Type Employe Defaut
/*****************/
Public :
Nom : Caractere;
Constructeur();
Fin Type
/****************************************************************/
Fonction MonCritere(O : Nul Ou Objet) Retourner Booleen
/* Objet : Retourne Vrai si le critere est verifie. */
/****************************************************************/
Variable
/******/
E : Employe;
Debut
Si O==Nul Alors
Retourner Faux;
Fin Si
E=Employe(O);
Retourner E.Nom Comme "A*";
Fin Fonction
Principal
/*******/
Variable
/******/
E : Nul Ou IEchange;
Debut
...
E.FiltrerSelon(MonCritere);
/* Filtre les enregistrements sur le nom de l'employé. */
...
E.FiltrerSelon("Objet.Nom Comme \"A*\"");
/* Filtre les enregistrements sur le nom de l'employé. */
...
Fin Principal
- | - | - | - | - | - | - | - | - |