Delphi中有没有对四则运算式进行计算的函数？

Question

例如用户输入:200-100+50，结果为150

Answer 1

我借助SQL SERVER实现过，但总觉得不通用。
给个思路！

Answer 2

只看到过Muldiv()是被乘数乘以乘数再除以一个数，其他的不知道。

Answer 3

在要计算的字符串后面加等号,ctrl+c,运行windows计算器,ctrl+v,就可以了.

Answer 4

http://www.xp97/delphi/calc.zip下有一个控件和例程,实现起来也容易,只是要加上如:
if(a>1,0,1)等等就不好写了,^=^...我也不会!

Answer 5

不明白，直接写不行吗？showmessage(inttostr(200-100+50));

Answer 6

没有
可以用Microsoft Script Control 1.0ScriptControl1.Language:='JavaScript';
ss:=ScriptControl1.Eval('200-100+50');