谢谢哪个大侠能够帮我解决这个问题

Question

谢谢哪个大侠能够帮我解决这个问题
在一个form 里有2个edit. text
一个是edit1.text用来输入如：5+（5-2）*3-7之类的另外一个edit2.text用来
显示结果
还有一个按钮用来显示结果
我真快急死了
谁能帮我
谢谢
你是我的上帝

Answer 1

不是有人已经说过了吗var
vScript: Variant;
str:string;
begin
  str:=trim(edit1.Text);
  vScript:=CreateOleObject('ScriptControl');
  vScript.Language := 'JavaScript';
  str:=vScript.Eval(str);
  edit2.Text := str;
end;

Answer 2

我想你还是不明白我的意思
我的意思是
用delphi
有2个text
一个按钮
其中一个用来输入字符5+4*（4+5）+6之类
的
按下按钮
另一个就显示
结果47
你
明白了吗？能够帮我把代码给我很谢谢你了

Answer 3

procedure TForm1.Button1Click(Sender: TObject);//button1的click事件
var
  vScript: Variant;
  str:string;
begin
  str:=trim(edit1.Text);//text1的内容
  vScript:=CreateOleObject('ScriptControl');
  vScript.Language := 'JavaScript';
  str:=vScript.Eval(str);
  edit2.Text := str;//text2显示结果
end;interface
uses
  加上comobj试过以后再说

Answer 4

hanlin2004(渴死的鱼) 是个好办法