PureBasic Forums - English

Code: Select all

procedure Test(*callback)

    ...

    Run *callback

   ...
endprocedure

Test(@Procedure)

Code: Select all

Procedure Test(a, b)
  ProcedureReturn a * b
EndProcedure


Procedure Test2(*pointer)
  ProcedureReturn CallFunctionFast(*pointer, 23, 2) ; 46
EndProcedure


Debug Test2(@Test())

Code: Select all

Prototype.i protoMyProc(var.i)

Procedure.i MyProcA(var.i)
  MessageRequester("Called", "MyProcA with parameter " + Str(var))
EndProcedure

Procedure.i MyProcB(var.i)
  MessageRequester("Called", "MyProcB with parameter " + Str(var))
EndProcedure


MyProc.protoMyProc = @MyProcA()
MyProc(3)

MyProc.protoMyProc = @MyProcB()
MyProc(5)

Code: Select all

Prototype p_callback()

Procedure myCallback()
  Debug "Hello"
EndProcedure

Procedure Test(callback.p_callback)
  callback()
EndProcedure

Test(@myCallback())