后缀方式实现表达式计算(Delphi实现)例程

/*逻辑表式*/InfixText:=( 1+( 2*( 3- 4^ 3)- 5/( 6- 7)% 34+ 159))/ 2> 10AND ‘AB‘+ ‘CD‘> ‘ABC‘PostfixText:=1 2 3 4 3^-* 5 6 7-/ 34%- 159++ 2/ 10> AB CD+ ABC>ANDResult:=True/*你可以进行注释,数值表达式*/(1+(2*(3-4^3)/*Mean...*/-5/(6-7)%34+159))/2 PostfixText:=1 2 3 4 3^-* 5 6 7-/ 34%- 159++ 2/Result:=21.5