文本框计算公式问题,如何实现在文本框中输入0.6*0.8*2 自动计算出0.96 输入(4.3+0.3)*(3.25+0.3) 自动计算出16.33 等等?
计算就是基本的加减乘除及括号
如何实现?
计算就是基本的加减乘除及括号
如何实现?
解决方案 »
- 世界很乱,做好自己!
- 怎样在软件中显示数学公式?
- 帮帮看看错在哪里了~~~~~~~~~~~~`
- 各位兄弟,好久没来这儿了,散分,顺便问问,大家年终奖一般有多少,你们平时有没有季度奖,多少?
- 简单小问题,很菜,但希望大家帮忙!
- ???delphi7.0装在winn2000server上为何找不到Qreport面版???
- adoQuery怎样执行sql语句,给个例子,急急急!!!!!!!!!!!
- 为什么paintbox refresh 后,以前的图形没了
- IStream,HGLOBAL,IPersistStreamInit在哪几个头文件中?
- 这个东西怎么和vb不同,我怎么获得enter键信息?请高手
- 有谁会动态生成使用 TRegware 4.02 source for D4~D7啊
- 想知道文件被哪些进程引用,类似于unlocker的原理
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;
uses comobj;procedure TForm1.Button1Click(Sender: TObject);
var
m_Script: Variant;
begin
try
m_Script := CreateOleObject('ScriptControl');
m_Script.Language := 'JavaScript';
showmessage( m_Script.Eval('(4.3+0.3)*(3.25+0.3) ') );
except
showmessage( 'error' );
end;
end;---------------------------
Project1
---------------------------
16.33
---------------------------
OK
---------------------------