Operator Procptr (Procedure Pointer)
Returns the address of a procedure
result = ProcPtr ( lhs )
lhs
Returns the address of the procedure.
This operator returns the address of a Sub or Function procedure.
Operator @ (Address Of), when used with procedures, has identical behavior.
Syntax
Usage
result = ProcPtr ( lhs )
Parameters
lhs
A procedure.
TThe type of procedure.
Return Value
Returns the address of the procedure.
Description
This operator returns the address of a Sub or Function procedure.
Operator @ (Address Of), when used with procedures, has identical behavior.
Example
' This example uses ProcPtr to demonstrate function pointers
Declare Function Subtract( x As Integer, y As Integer) As Integer
Declare Function Add( x As Integer, y As Integer) As Integer
Dim myFunction As Function( x As Integer, y As Integer) As Integer
' myFunction will now be assigned to Add
myFunction = ProcPtr( Add )
Print myFunction(2, 3)
' myFunction will now be assigned to Subtract. Notice the different output.
myFunction = ProcPtr( Subtract )
Print myFunction(2, 3)
Function Add( x As Integer, y As Integer) As Integer
Return x + y
End Function
Function Subtract( x As Integer, y As Integer) As Integer
Return x - y
End Function
Declare Function Subtract( x As Integer, y As Integer) As Integer
Declare Function Add( x As Integer, y As Integer) As Integer
Dim myFunction As Function( x As Integer, y As Integer) As Integer
' myFunction will now be assigned to Add
myFunction = ProcPtr( Add )
Print myFunction(2, 3)
' myFunction will now be assigned to Subtract. Notice the different output.
myFunction = ProcPtr( Subtract )
Print myFunction(2, 3)
Function Add( x As Integer, y As Integer) As Integer
Return x + y
End Function
Function Subtract( x As Integer, y As Integer) As Integer
Return x - y
End Function
Dialect Differences
- Not available in the -lang qb dialect unless referenced with the alias __Procptr.
Differences from QB
- New to FreeBASIC
See also
