>>>local a >>>a='test' >>>=Test(@a) >>>=Test(a) >>> >>>procedure Text >>>lparameter b >>>*-- here, i would like to verify that the variable 'a' was passed to 'b' as by reference. >>>... >>>>>
>>PRIVATE a >>a='test' >>=Testa(@a) >>=Testa(a) >>PUBLIC x >>=Testx(@x) >>=Testx(x) >> >>procedure Testa >>lparameter b >>MESSAGEBOX("variable b "+IIF(VARTYPE(m.a)=='U',"Reference to a","is a stand-alone variable")) >> >>procedure Testx >>lparameter b >>MESSAGEBOX("variable b "+IIF(VARTYPE(m.x)=='U',"Reference to x","is a stand-alone variable")) >>>
PUBLIC x ACTIVATE SCREEN sideLevel1() PROCEDURE sideLevel1(stop) ? PROGRAM() ? m.x IF m.stop RETURN ENDIF sideLevel2(@m.x) PROCEDURE sideLevel2(stop) sideLevel1(.T.)