Subtest()Print("Hello,World!")EndSubSubmain()Dimptr As SubPtrptr=@testCallptr()EndSub 在上述示例中,我们定义了一个名为"test"的子程序,它的功能是输出"Hello, World!"。然后,我们在"main"子程序中定义了一个子程序指针ptr,并将其赋值为"test"子程序的地址。最后,我们使用"Call"关键字调用ptr指向的...
Subtest()Print("Hello,World!")EndSubSubmain()Dimptr As SubPtrptr=@testCallptr()EndSub 在上述示例中,我们定义了一个名为"test"的子程序,它的功能是输出"Hello, World!"。然后,我们在"main"子程序中定义了一个子程序指针ptr,并将其赋值为"test"子程序的地址。最后,我们使用"Call"关键字调用ptr指向的...
指针变量可以作为参数传递给函数和过程参数。指针变量既可以作为值也可以作为变量参数传递;但是,当作为变量参数传递时,子程序可能会无意间更改指针的值,这将导致奇怪的结果。以下程序说明了传递指向函数的指针- program exPointertoFunctions; type iptr = ^integer; var i: integer; ptr: iptr; function getNumber...