1+2*3=？像这样的运算公式，如何求解？求代码？

Question

像这样的运算公式，如何求解？求代码？

Answer 1

function GetSum:integer;
begin
  result := 1 + (2*3);
end;
唉

Answer 2

function XXOO(a,b,c:Integer):integer;
begin
  result := a + (b*c);
end;showmessage(inttostr(XXOO(1,2,3)));

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  js :  OleVariant;
  Str : String;
begin
  Edit1.Text := '1+2*3';
  js := CreateOleObject('ScriptControl');
  js.Language := 'JavaScript';
  Str := js.Eval(Edit1.Text);
  js := NULL;
  ShowMessage(Str);
end;显示结果为 7
不过这方法.........

Answer 4

双点窗体，加入  showmessage('1+2*3=7');  试试吧

Answer 5

http://topic.csdn.net/u/20120306/18/b3faf4ec-6d76-4d1b-829a-302e27be7aa5.html

Answer 6

1、不能用脚本控件
2、这我只是一个例子。
function XXOO(a,b,c:Integer):integer;
begin
  result := a + (b*c);
end;showmessage(inttostr(XXOO(1,2,3)));
所以这种回复就不要回了。我要的是分析，然后运算。

Answer 7

带括号吗?只有四则运算吗?有函数吗?考虑变量吗？考虑iDIV吗？考虑浮点运算吗？这些都要描述一下，如果都有则比较复杂

Answer 8

这些回答都真狠啊……
表达式解析：
http://www.cnblogs.com/tangqs/archive/2011/11/03/2234715.html
看看吧，还有一个，不过忘了在哪里了。
还有盒子找找，好像也有。

Answer 9

放个ADOQuery
Select 1+2*3/(5+7)