As it is currently:
Code: Select all
Procedure PrintTest()
Debug "Test"
EndProcedure
*a=@PrintTest()
CallFunctionFast(*a)
Code: Select all
Procedure PrintTest()
Debug "Test"
EndProcedure
*a=@PrintTest()
*a()
Code: Select all
Procedure PrintTest()
Debug "Test"
EndProcedure
*a=@PrintTest()
CallFunctionFast(*a)
Code: Select all
Procedure PrintTest()
Debug "Test"
EndProcedure
*a=@PrintTest()
*a()
Code: Select all
Prototype.i testProc()
Procedure PrintTest()
Debug "Test"
EndProcedure
*a.testProc =@PrintTest()
*a()
Code: Select all
-TOP
Procedure fc0()
Debug "Func 0"
EndProcedure
Procedure fc1()
Debug "Func 1"
EndProcedure
Procedure fc2()
Debug "Func 2"
EndProcedure
Procedure fc3()
Debug "Func 3"
EndProcedure
Prototype protoInvoke()
Structure udtInvoke
Invoke.protoInvoke
EndStructure
Dim fc.udtInvoke(3)
fc(0)\Invoke = @fc0()
fc(1)\Invoke = @fc1()
fc(2)\Invoke = @fc2()
fc(3)\Invoke = @fc3()
For n = 1 To 4
For i = 0 To 3
fc(i)\Invoke()
Next
Delay(500)
Next
I understand your request.Mistrel wrote:a shorthand for CallFunctionFast() where I don't have to declare ahead of time what arguments are to be passed.