我才开始搞,delphi有这种函数吗?再开发一个数据库,请指点
解决方案 »
- 用ShellExecute打开记事本后,如何保存后再执行下一行DELPHI代码
- idhttp提交数据出现http1.1/500错误
- 在繁体xp系统里读出来的姓名和地址都带有乱码:‘?’,用了简体转繁体的函数还是一样某些字显示问号。
- 如何根据句柄得到其他程序的Richedit中的RTF数据?
- 求DBTREE的DEMO,和教程
- 我用Delphi编写的Dll用Regsvr32注册为何报错
- 帮忙改改!在等
- 怎么把一个form中的一个变量的值返回给另外一个form!
- 我用重载的方法屏蔽鼠标的WM_LBUTTONDOWN 可是不行
- 我想删掉数据库里的一条纪录,有一列是num,根据edit1中输入的num号进行删除,该怎么做??
- 您好,大家帮帮忙看看这个服务要怎么处理才好 ? 写服务程序有哪些基本要求 ?(那次那位要解锁 win 的朋友也请进)
- delphi7 的 update
取整:trunc(无条件舍去转化为整数)
Frac(返回实数的小数部分)
Int(返回实数的整数部分)
trunc 和 round 是 system unit 里的函数,缺省就可以用。
floor 直接往小的取,比如 floor(-123.55)=-124,floor(123.55)=123
trunc 直接切下整数,比如 trunc(-123.55)=-123, floor(123.55)=123
ceil 直接往大的取,比如 ceil(-123.55)=-123, ceil(123.55)=124
round 计算四舍五入,比如 round(-123.55)=-124,round(123.55)=124
round(122.5)=122 ////round(123.55)=123
{ Round ---> DoRound }
function DoRound(Value: Extended): Int64; procedure Set8087CW(NewCW: Word);
asm
MOV Default8087CW,AX
FNCLEX
FLDCW Default8087CW
end;const
RoundUpCW = $1B32;
var
OldCW : Word;
begin
OldCW := Default8087CW;
try
Set8087CW(RoundUpCW);
Result := Round(Value);
finally
Set8087CW(OldCW);
end;
end;{ DoRound }DoRound(122.5)=123 ////DoRound(123.55)=123 摘自《超级猛料》
////round(123.55)=124
////DoRound(123.55)=124
替换成DoRound呢?