- 博客(0)
- 资源 (4)
- 收藏
- 关注
Report Machine3.38文件升级
delphi7的 Report Machine3.38文件升级delph 2010 RM6.5
上次上传的那DBGrideh各位不要下载了,破解的有乱码
2011-12-27
Delphi 数学公式,表达示解析
interface
uses windows,SysUtils,math;
function qbdsz(s:string):double; //取表达式值
implementation
var
x:array of double; //实数范围可以更改
y:array of string;
max:integer;
pai,e:double;
function qz(s:string):double; //将没有括号的表达式求值
var
t:integer;
s1:string;
begin
try
//按加减,乘除,乘方,三角函数对数的顺序
t:=pos('+',s);
if t>1 then
begin
s1:=copy(s,1,t-1);
delete(s,1,t);
result:=qz(s1)+ qz(s);//递归调用
exit;
end;
......
2011-11-01
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人