call a String as Function

[AUGE_OHR]

hi,

i try to re-write a CLASS to FUNCTION

Code: Select all

   cFunc := "c" + cRet + "()"
   cRet := &cFunc

FUNCTION cStartup
return CSIDL_STARTUP                    // Start Menu\Programs\Startup

Error BASE/1001 Undefined function: CSTARTUP
Called from CSTARTUP(0)
Called from DOMYSYSACTION(333)
Called from (b)FUNCSYSFOLDER(284)
Called from _DOCONTROLEVENTPROCEDURE(6038)
Called from EVENTS(2011)
Called from DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(5699)
Called from FUNCSYSFOLDER(298)
Called from PREFUNCSYSFOLDER(3434)
Called from (b)MAIN(229)
Called from _DOCONTROLEVENTPROCEDURE(6038)
Called from EVENTS(824)
Called from DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(5699)
Called from MAIN(595)

so how to use a Macro to call a Function

[gfilatov]

hi,
...
so how to use a Macro to call a Function

Hi Jummy,

Please try the following code:

Code: Select all

cFunc := "c" + cRet + "()"
cRet := Eval( hb_macroBlock( cFunc ) )

HTH

[AUGE_OHR]

hi,

Please try the following code:

Code: Select all

cFunc := "c" + cRet + "()"
cRet := Eval( hb_macroBlock( cFunc ) )

Ahhhh ... use a Codeblock and EVAL() it, THX

[mol]

Code: Select all

cFunc := "{||" +    "c" + cRet + "()"     +"}"
cRet := Eval( &cFunc  )

do the same

[KDJ]

Another way is to use @ operator for get reference to the function:

Code: Select all

sFunc := &("@c" + cRet + "()")
cRet := sFunc:exec(param1, param2, ...)

[Anand]

Code: Select all

cFunc := "{||" +    "c" + cRet + "()"     +"}"
cRet := Eval( &cFunc  )

do the same

I use this technique from Clipper time.

Regards,

Anand

[AUGE_OHR]

hi,

thx for Answer.
i simple have not think about Codeblock which is more Powerfull

[PeteWG]

Perhaps,

Code: Select all

cFunc := 'c'+cRet
cRet := hb_execFromArray( cFunc )

or

Code: Select all

cRet := hb_execFromArray( cFunc, {param1, param2, ...} )

or

Code: Select all

cRet := hb_execFromArray( {cFunc, param1, param2, ...} )

seems to be a good alternative, since it's quite simpler and I guess much faster.

P.S.: Please note that this function supports, also, some other syntaxes, (see Changelog.txt),
but the above is enough for the occasion, I think.

regards,
Pete