| 截止2004年12月16日 |
本站源码总量RAR压缩为 4,206,733 KB。其中免费源码为 1,124,495 KB，商业源码为 3,082,238 KB！
| C/C++ |
129,555 KB |
| Delphi |
1,258,381 KB |
| Java |
120,937 KB |
| .Net |
36,886 KB |
| PowerBuilder |
954,525 KB |
| Visual Basic |
923,454 KB |
| ASP |
259,795 KB |
| JSP |
4,987 KB |
| 其他 |
94,723 KB |
|
|
| Delphi四舍五入的BUG |
|
Delphi的四舍五入函数Round有BUG，无法正常工作。
对于XXX.5的情况，整数部分是奇数，那么会Round Up，偶数会Round Down，例如：
x:= Round 17.5) = x = 18
x:= Round 12.5) = x = 12
请使用下面的函数代替Round：
|
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;
|
|
| |
| 文章出处： |
|
发表时间：2004-11-17 22:54:46 |
| 共1条数据记录，分1页显示 上一页 < [1] > 下一页 |
|
