| |
| |
|
 | Proc from nProc page
sometimes would like one a nProc however a Proc aurufen,
z.B. circa to that XProfan-Sprachschatz umzuschalten. this is relatively simply with of/ one
interpreteProc by Call possible.
CompileMarkSeparation {$cleq}
{$compiler c:\dev\xprofan11\11}
{$runtime c:\dev\xprofan11\11}
declare interpreteProc&
interpreteProc&=procAddr(interpreteProc,5)
print test(1)
print test(2)
waitinput
end
nProc test(long test){
global interpreteProc&
case test==1 : return call(interpreteProc&,1,2,3,4,5)
case test==2 : return call(interpreteProc&,2,2,3,4,5)
}
interpreteProc(long procID,p2,p3,p4,p5){
select procID
caseof 1 : return 55
caseof 2 : return p2*p3
endSelect
color=#0000FF>}
|
|
| |
| |
| |
|
(931)
Deutsch
English
Français
Español
Italia