文本框计算公式问题,如何实现在文本框中输入0.6*0.8*2 自动计算出0.96等等?
文本框计算公式问题,如何实现在文本框中输入0.6*0.8*2 自动计算出0.96 输入(4.3+0.3)*(3.25+0.3) 自动计算出16.33 等等?
计算就是基本的加减乘除及括号
如何实现?
[解决办法]
- Delphi(Pascal) code
uses comobj;var m_Script: Variant;begin try m_Script:= CreateOleObject('ScriptControl'); m_Script.Language := 'JavaScript'; showmessage( m_Script.Eval('0.6*0.8*2') ); except showmessage( 'error' ); end;end;