摘要： 自己实现的四则表达式运算类，算是消遣吧，现只支持四则混合运算View Code type Topr = (opAdd, opSub, opMul, opDiv, opLbc, opRbc, opNum); PToken = ^TToken; TToken = record Tag: Topr; V: Double; end; TExp = array of TToken; PExp = array of PToken; TCalc = class private FMsg: string; private function ToInfix(const S: string; va... 阅读全文