Fonction Optimiser(Invariant) EnumererParametres(Numero : Entier, TypeParametre : Nul Ou Type=? Sortie, EstNul : Booleen=? Sortie, Aide : Nul Ou Caractere=? Sortie, NomEnumere : Nul Ou Caractere=? Sortie, SorteDuParametre : SorteParametre=? Sortie, IlExisteValeurParDefaut : Booleen=? Sortie) Retourner Nul Ou Caractere;
Le paramètre TypeParametre reçoit l'objet représentant le type de la valeur du paramètre. Le paramètre EstNul reçoit Vrai si le paramètre accepte Nul. Le paramètre Aide reçoit le libellé d'aide contextuelle du paramètre. Si le type de la propriété est Enumere, alors le paramètre NomEnumere reçoit le nom de l'énuméré. Le paramètre SorteDuParametre reçoit la sorte de passage du paramètre. Le paramètre IlExisteValeurParDefaut reçoit Vrai si le paramètre possède une valeur par défaut.
/****************************************************************/
Procedure P(A : Entier, B : Nul Ou Caractere, C : Booleen Sortie)
/* Objet : Procédure quelconque. */
/****************************************************************/
...
Fin Procedure
Variable
/******/
Para : Nul Ou Caractere;
Numero : Entier;
Principal
/*******/
Debut
...
/* Enumere les paramètres de 'P'. */
Para=P.EnumereParametres(++Numero, ?, ?, ?, ?, ?, ?);
TantQue Para!=Nul Faire
Ecran.Ecrire(Para);
Para=P.EnumereParametres(++Numero, ?, ?, ?, ?, ?, ?);
Fin TantQue
...
Fin Principal
- | - | - | - | - | - | - | - | - |