Fonction NouvelObjet(InterfaceAImplementer : Type) Retourner Objet;
La méthode NouvelObjet permet de créer un nouvel objet d'un type public appartenant au module, ce type implémentant l'interface demandée et ayant un constructeur implicite. Si deux types remplissent le critère de sélection, le premier est retenu.
Si le module ne possède pas de type remplissant le critère de sélection, l'exception est InterfaceNonImplemetee envoyée.
Public :
/******/
Interface IA
/**********/
Procedure Ecrire();
Fin Interface
Principal
/*******/
Variable
/******/
A : Nul Ou IA;
M : Nul Ou Module;
Debut
...
M=Module("M2");
/* Le module M2 est chargé dynamiquement. */
A=M.NouvelObjet(IA);
/* Création d'un objet d'un type de M2 implémentant IA. Le type sélectionné est TA. */
A.Ecrire();
/* Usage de l'objet venant du module M2. */
...
Fin Principal
ImporterModule
/************/
M1(<M1.upi>);
Public :
/******/
Type TA Implemente M1.IA
/**********************/
Constructeur();
Procedure Ecrire();
Fin Type
/****************************************************************/
Procedure TA.Ecrire()
/* Objet : Procédure quelconque. */
/****************************************************************/
Debut
Ecran.Ecrire("Bonjour le monde !");
Fin Procedure
- | - | - | - | - | - | - | - | - |