Very smart example and I made a little different to be tested in HMG:
Code: Select all
#Translate CBNew (<b>) => { <b>, <(b)> }
#Translate CBEval (<b>) => Eval( <b>\[1\] )
#Translate CBString (<b>) => <b>\[2\]
REQUEST HB_GT_WIN_DEFAULT
Function Main()
Local bCod1 := CBNew( { || My_Func("This is a test") } )
Local bCod2 := CBNew( { || My_Func(12) } )
Local bCod3 := CBNew( { || My_Func("This is a test") } )
Local bCod4 := CBNew( { || nCtd += 1, npar2 -=1, npar3 +=10 } )
Private nCtd := 0, npar2 := 0, npar3 := 0
SetMode(25,80)
cls
? PadC(Chr(32)+CBString( bCod1 )+Chr(32),79,"-")
? CBEval( bCod1 )
? Replicate("-",79)
?
?
? PadC(Chr(32)+CBString( bCod2 )+Chr(32),79,"-")
? CBEval( bCod2 )
? Replicate("-",79)
?
?
? PadC(Chr(32)+CBString( bCod3 )+Chr(32),79,"-")
? CBEval( bCod3 )
? Replicate("-",79)
?
?
? PadC(Chr(32)+CBString( bCod4 )+Chr(32),79,"-")
? CBEval( bCod4 )
? Replicate("-",79)
Inkey(0)
Return Nil
Function My_Func( uDesc )
? "ValType: "+Chr(34)+ValType(uDesc)+Chr(34)+Space(40)+"Value: ", uDesc
Return uDesc
I hope it will be useful to anyone who needs it !
Thank you very much, Rossine ! You are a "mineiro bão, sô !". Congratulations !