Delphi数学公式表达示解析 interfaceuseswindows,SysUtils,math;functionqbdsz(s:string):double;//取表达式值implementationvarx:arrayofdouble;//实数范围可以更改y:arrayofstring;max:integer;pai,e: