Eval function

[serge_girard]

Long time ago I had some function to calculate simple formulas directly but I cannot find it ...

Input text field (example): 25 + 2 * (2/4)
Button to calculate result into MSGINFO .

Something like this:

Code: Select all

LOCAL SOM := Form_REPKAL.T2_SOM.Value   
bBlock := { SOM }                       
MSGINFO (EVAL(bBlock))                  
RETURN                                  

Just like the old dBase prompt ? 25 + 2 * (2/4) would return result

Serge

[Rathinagiri]

Code: Select all

   som := '25 + 2 * 2/4'
   bBlock := { || &som }
   msginfo( eval( bBlock ) )

The above code gave me the desired result of 26.

[serge_girard]

Thanks Rathi !

The & ampersand miracle !!!

Serge