Re: Execute a function contained in a variable
Posted: Wed Apr 07, 2010 10:00 am
...Dear charvista, I have some new present for you: http://www.purebasic.fr/english/viewtop ... 7&p=320820
Code: Select all
Structure STRPROCENTRY
lpProcAddress.l
szProcName.s
EndStructure
Global NewList SG_Procedures.STRPROCENTRY()
ProcedureDLL SG_CallProc(szName.s)
Shared SG_Procedures.STRPROCENTRY()
ForEach SG_Procedures()
If LCase(szName) = SG_Procedures()\szProcName
CallFunctionFast(SG_Procedures()\lpProcAddress)
EndIf
Next
EndProcedure
ProcedureDLL AddProcedure(A,B.s)
AddElement(SG_Procedures())
SG_Procedures()\lpProcAddress = A
SG_Procedures()\szProcName = LCase(B.s)
EndProcedure