UpsKrn.Module.EnumererValeursEnumeres


Fonction Optimiser(Invariant) EnumererValeursEnumeres(NomEnumere : Caractere, Numero : Entier, Aide : Nul Ou Caractere=? Sortie) Retourner Nul Ou Caractere;

Description

La méthode EnumererEnumeres permet d'énumérer les énumérés publics définis dans le module. Les énumérés sont numérotés à partir de un.

En sortie, la variable Aide recueille un libellé donnant la sémantique de l'énuméré et le résultat est le nom de l'énuméré.

Exemple

Module M1


Enumere

/*****/


	A Dans (A1, A2);

	B Dans (B1, B2, B3);

Module M2


Variable

/******/


	M : Nul Ou Module;

	Numero : Entier;

	N : Nul Ou Caractere;



Principal

/*******/

M=Module("M1");

N=M.EnumererValeursEnumeres("A", ++Numero, ?);

/* Enumère les valeurs de 'A' de 'M1'. */

TantQue N!=Nul Faire

	Ecran.Ecrire(N);

	N=M.EnumererValeursEnumeres("A", ++Numero, ?);

Fin TantQue

Fin Principal

Voir aussi

EnumererEnumeres pour énumérer les énumérés.

Traduction


-	-	-	-	-	-	-	-	-