以前写的一个不是玩意儿的玩意儿，表达式计算器附带源码，现拿出来献丑

[budded]

表达式计算器附带源码，源代码在这里http://download.csdn.net/source/847553，欢迎各位斧正！
联系: [e-mail]

[yinxd6112]

向牛人学习 :-D

[JPEXE]

支持分享!

[日总是我哥]

顶~

[lihuasoft]

谢谢
已下载
记得楼主以前贴出过代码片段

学习

顶

[yangkunjie]

接分
顶上

[火龙岛主]

看看。

[panrongzeng]

看看，谢谢

[woniugongzuoshi]

好东西，做个记号

[gyk120]

Mark，学习了

[zhangxiaommmm]

现在去下．
是个计算器，是吧？

[寻梦928]

强人!

[siwaxige]

为什么要自己写那？windows系统有个现成的ScriptControl控件，引用一下不就可以了么，它可以计算数学和逻辑表达式，自己写太累了。

[stgsd]

俺在http://blog.csdn.net/stgsd/archive/2008/11/21/3346002.aspx
也写有一篇源码，互相参考下

[starluck]

去下載了學習。呵呵

[pengderun]

学习

[liangpei2008]

下载、学习！

[liangpei2008]

//不过还是同意16楼，用ScriptControl会省好多事！

uses
  ComObj;
function TForm1.DoCaculate(exp: string): string;
var
  script: Variant;
begin
  script := CreateOleObject('ScriptControl');
  script.Language := 'JavaScript';
  Result := script.Eval(Exp);
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  str:string;
begin
   str:=DoCaculate('((1+2)*3)/3');
   ShowMessage(str);
end;

[zqdue]

强人！学习！

[tjg5202]

牛人。。。。。。

[zhao_yong]

好好学习,天天向上.