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
| - | - | - | - | - | - | - | - | - |