Forum AtoutFox : Re: Private All Except ...   

jeu. 13 février 2020, 17h33

Luc
France
atoutfox.public.association

Re: Private All Except ...

Merci Francis, mais ça ne fonctionne pas : ci-dessous un code modifié qui correspond mieux à ce que je cherche. De fait, le programme plante car il me faudrait conserver en non-privé toutes les variables "_*" ET toutes celles "g*".

Bon, la conclusion est que je vais renommer mes variables "g*" en "_*".

Luc

clear

Public gTata
_tonton = 1
gTata = 2

do down

? "Main", _tonton, gTata && Displays "Main", 1, 2

procedure down
  private all Except _*      && si on laisse cette ligne, la variable gTata ne sera plus accessible ci-dessous
  private all Except g*      && si on laisse cette ligne, la variable _tonton ne sera plus accessible ci-dessous
* Je ne souhaite pas redéclarer ces variables, mais continuer d'accéder à leurs valeurs définies avant
* C'est pour cela que l'on fait un "private all EXCEPT"
*  _tonton = 50
*  gTata = 100
  ? "Down", _tonton , gTata && Displays "Down", 50, 100
endproc


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019554