UpsKrn.Module.EnumererTypes


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

Description

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

En sortie, la variable Aide recueille un libellé donnant la sémantique de l'entrepôt et le résultat est le type.

Exemple

Module M1


Type T1

/*****/

	...

Fin Type



Type T2

/*****/

	...

Fin Type



Type T3

/*****/

	...

Fin Type

Module M2


Variable

/******/


	M : Nul Ou Module;

	Numero : Entier;

	T : Nul Ou Type;



Principal

/*******/

M=Module("M1");

P=M.EnumererTypes(++Numero, ?);

/* Enumère les types de 'M1'. */

TantQue T!=Nul Faire

	Ecran.Ecrire(T.NomType);

	T=M.EnumererTypes(++Numero, ?);

Fin TantQue

Fin Principal

Traduction


-	-	-	-	-	-	-	-	-