Delphi-一个新算法的表达式求值的函数

我经过思考，自已做了一个表达式求值的函数，与标准算法不同，这是我闭门造车而成的，目的在于求简单。一个BUG是小数点0.999999999。。。。。未自动消除为1。时间匆忙，来不及多说，让读者看了再说吧。另辟溪径也许有利于开拓新思路吧。我这种方法叫逐层去括号法的表达式求值。更新日期为2007.5.14.我的邮箱是myvbvc@tom.com,QQ:165442523.