Comment savoir si une variable globale a ete declaree ou non ?
Le code suivant permet de tester si une variable a ete declaree globalement (fenetre ou projet).
PROCEDURE TestVar(NomVar)
bResultat est un booleen
sResultatCompile est une chaîne
sSource est une chaîne
sSource = ChaîneConstruit("%1 = val(caract(49));renvoyer %1", NomVar)
sResultatCompile = Compile("Proc_dynamique", sSource)
SELON sResultatCompile
CAS "" :
QUAND EXCEPTION DANS
ExecuteTraitement("Proc_dynamique", trtProcedure)
bResultat = Vrai
FAIRE
bResultat = Faux
FIN
AUTRE CAS : bResultat = Faux
FIN
RENVOYER bResultat