3 pièce(s) jointe(s)
Indirection variable globale
Bonjour,
Le problème que je rencontre est le suivant :
J'ai créé le fichier PARAMETRES suivant ...
Pièce jointe 107646
A l'initialisation de mon programme, je déclare le nom de chaque variable globale comme suit :
Pièce jointe 107647
Ensuite, je veux réaliser le chargement du nom de mes variables globales et leur contenu par le biais de cette procédure InitialisationProgramme
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
|
// Initialisation des variables globales déclarées dans le code du projet
PROCEDURE InitialisationVariablesGlobales()
// Chargement des noms de chaque variable et leur valeur respective à partir du fichier "PARAMETRES"
HLitPremier(PARAMETRES,NomVariable)
TANTQUE PAS HEnDehors(PARAMETRES)
Choix est entier = 0
SI PARAMETRES.typeVariable = "Numérique" THEN
Choix = 2
SINON SI PARAMETRES.typeVariable = "Texte" THEN
Choix = 3
SINON SI PARAMETRES.typeVariable = "Booléen" THEN
Choix = 1
SINON
Choix = 0
FIN
// Traitement selon le type de la variable
SELON Choix
CAS 3 // Texte
{PARAMETRES.NomVariable} = PARAMETRES.ContenuVariable
CAS 2 // Numérique
{PARAMETRES.NomVariable} = Val(PARAMETRES.ContenuVariable)
CAS 1 // Booléen
{PARAMETRES.NomVariable} = PARAMETRES.ContenuVariable="Faux" ? "Faux" SINON "Vrai"
AUTRE CAS
Info ("Cas non défini")
FIN
Trace (PARAMETRES.NomVariable,TAB,PARAMETRES.ContenuVariable,TAB,TAB,{PARAMETRES.NomVariable}))
HLitSuivant(PARAMETRES, NomVariable)
FIN |
Voilà le résultat qui n'est pas satisfaisant car je n'est pas affecté les valeurs dans mes variables globales ...
Pièce jointe 107650
Je ne sais pas comment utiliser les indirections pour récupérer le nom de ces variables et y affecter leur contenu !
Je BUG...