XProfan

window 10,10-500,500
declare Demo&,Dummy&--Geht
declare Demo&,Dummy%--Geht nicht
declare Demo&----------Geht nicht

proc Test----------------------------------

    parameters Text$,Pointer&
    long Pointer&,0=123
    endproc-------------------------------------
    Test(Text,addr(Demo&))
    print Test 1:,Demo&
    Test(Text,addr(Demo&))
    print Test 2:,Demo&
    KompilierenMarqueSéparation
proc Test----------------------------------

    parameters Pointer&
    endproc-------------------------------------
    declare Dummy&--avec cela allez es
    var Demo&=123
    imprimer addr(Demo&),Demo&
    Test(addr(Demo&))
    imprimer addr(Demo&),Demo&
    Test(addr(Demo&))
    imprimer addr(Demo&),Demo&
    waitkey

Hierbei ändert sich qui Adresse, à qui Demo&  liegt, par den 1. Proc-Aufruf, allerdings seulement, si qui übergebene Wert per Paramètres  ausgelesen wird.

avec XProfan 10 reagiert alles comment erwartet.
là stimmt doch quoi pas ?!

PS: était oui bien sûr, qui ausgerechnet je sur quelque chose comme stolpere  

SeeYou
Pascal