Module et sctructure externe

[microdevweb]

Bonjour,

Il y a t'il moyen de passé un structure externe à un module (comme méthode A)

Méthode A qui ne fonctionne pas

Code : Tout sélectionner

Structure project
      name$
EndStructure

Global myProject.project
myProject\name$="teste"
DeclareModule Teste
      Declare init(*project.project)
EndDeclareModule
Module Teste
      Procedure init(*project.project)
            Debug *project\name$
      EndProcedure
EndModule
Teste::init(@myProject)

Méthode B qui fonctionne

Code : Tout sélectionner

DeclareModule project
      Structure project
            name$
      EndStructure
EndDeclareModule
Module project EndModule
UseModule project
Global myProject.project
myProject\name$="teste"
DeclareModule Teste
      UseModule project
      Declare init(*project.project)
EndDeclareModule
Module Teste
      Procedure init(*project.project)
            Debug *project\name$
      EndProcedure
 EndModule
 Teste::init(@myProject)

[microdevweb]

Merci Spock,

Mais je penses qu'il plus simple de placer la structure dans un module. Mais astuce bonne à prendre

[Anonyme2]

On peut déclarer 2 fois la même structure, une en dehors du module accessible partout sauf dans le module et la seconde, la même structure dans le module accessible dans le module et pas ailleurs. Pas de conflit de nom.

Bien sur, bien qu'ayant le même nom, les structures peuvent être différentes. Ce qui compte c'est que l'élément utilisé (structure global) soit à la même position dans la structure du module, bien faire attention à la taille des données mise dans les structures.

Code : Tout sélectionner

Structure project
			name$
EndStructure



Global myProject.project\name$ = "teste"



DeclareModule Teste

	Structure project
		name$
	EndStructure

	Declare init(*project.project)

EndDeclareModule

Module Teste
	
	Procedure init(*project.project)
		Debug *project\name$
	EndProcedure

EndModule


Teste::init(@myProject)

le même code avec les structures différentes

Code : Tout sélectionner

Structure project
			name$
EndStructure



Global myProject.project\name$ = "teste"



DeclareModule Teste

	Structure project
		name$
		age.i
	EndStructure

	Declare init(*project.project)

EndDeclareModule

Module Teste
	
	Procedure init(*project.project)
		Debug *project\name$
	EndProcedure

EndModule


Teste::init(@myProject)