Execute a function contained in a variable

[Melissa]

...Dear charvista, I have some new present for you: http://www.purebasic.fr/english/viewtop ... 7&p=320820

[brianO]

a little update:

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