关于四舍五入

最新推荐文章于 2022-10-15 15:23:06 发布
最新推荐文章于 2022-10-15 15:23:06 发布
阅读量1.4k 收藏
点赞数
分类专栏： delphi 文章标签： delphi function up
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/highway_programmer/article/details/171960
版权
四舍五入
(转http://www.nssoft.net/showdoc.asp?did=267)
关键词:四舍五入 

Delphi的四舍五入函数Round，对于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;

highway_programmer
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 4
    评论
专栏目录
delphi “Invalid floating point operation.”错误的解决方法
敦格
05-09 1万+
delphi “Invalid floating point operation.”错误的解决方法
Set8087CW作用
Bachelor_Delphi的博客
08-06 1369
//FPU:浮点运算器,Floating Point Unit的简写,浮点运算单元是专门用于浮点运算的处理器,集成于CPU之内,效率高、执行快 //Set8087CW(开关FPU) //Set8087CW($1372):开FPU,默认值 //Set8087cw($133f):闭FPU //Procedure Set8087CW(NewCW: Word); //Default8087CW:...
解决Delphi中使用TWebBrowser控件访问带Flash网页时提示报错的问题
weixin_30877227的博客
03-31 296
使用TWebBrowser控件在访问包含Flash的网页时，可能会报“Invalid floating point operation“的错误，使用Set8087CW(0x133f)禁用这个异常即可。 详见：http://docwiki.embarcadero.com/CodeSamples/en/Set8087CW_%28Delphi%29 另见：http://stackoverflow.c...
Set8087CW
weixin_34226182的博客
07-13 267
Set8087CWThis example accesses the Floating Point Unit (FPU) control register. Try turning floating point exceptions off and on and dividing a number by zero to test it. Word Saved8087CW; void ...
zw版_zw中文增强版Halcon官方Delphi例程
weixin_33923762的博客
10-04 468
【《zw版·delphi与halcon系列原创教程》zw版_zw中文增强版Halcon官方Delphi例程 源码下载：http://files.cnblogs.com/files/ziwang/zw_match.zip 2016 zw中文增强版（delph2007，HALCON 11.01） 主要改动之处： :: 将位于窗口class的私有变量，改为全局变量，便于分析，修改 :: 增加大...
c语言关于四舍五入问题的详细解释
热门推荐
qq_73814284的博客
10-15 1万+
有关四舍五入问题及其取整的库函数，float函数的详细解答。
Delphi中取整函数Round的Bug解决
Slash Youth - Jack Chai
04-23 3671
Delphi中 Round函数有个Bug一旦参数是形如 XXX.5这样的数时如果 XXX 是奇数 那么就会 Round up如果 XXX 是偶数 那么就会 Round down例如 Round(17.5)=18但是 Round(12.5)=12下面的函数即可纠正这个 Bug 但是是临时性的执行 DoRound(12.5) 结果为 13 正确  function DoRound(Value:
Delphi 常用语句
weixin_33739627的博客
03-16 199
1.屏蔽Float浮点数出错： Set8087CW(Longword($133f)); 2.Idhttp参数设置： FIdhttp := TIdHTTP.Create(nil); FSSL := TIdSSLIOHandlerSocket.Create(nil); strlst := TStrin...
四舍五入函数
西瓜地
07-02 670
function DoRound(Value: Extended): Int64;    procedure Set8087CW(NewCW: Word);      asm    MOV     Default8087CW,    AX    FNCLEX    FLDCW   Default8087CW  end;const  RoundUpCW         = $1B32;var  Ol
Delphi 7 中使用RAVE报表（一）
高速公路上的鱼编程学习专栏--请您指教
11-30 9023
Delphi 7 中使用RAVE报表（一）最近刚刚做完一个项目，使用到了ＲＡＶＥ进行报表设计，在使用中也查阅了很多资料，但总觉得网上的资料过于分散，而且都不是很全面，所以决定将如何在Delphi 7中使用RAVE报表写成几篇文章，由于本人从小语文学得不好，不是写作高手，这次也是第一次写这样的文章。希望看到这篇文章的网友能多提意见，欢迎大家指教。可以给我留言。   言归正传，在我们要给用户编写的软件
Delphi 7 中使用RAVE报表（五）
高速公路上的鱼编程学习专栏--请您指教
01-11 6184
Delphi 7 中使用RAVE报表（五）                                              ——和数据库连接的报表         以access数据库为例，先新建一个数据库，建立一张表包括的字段为：{[name]、[sex]、[age]、[province]}，添加数据，当然不要太少了。     首先,我们不考虑Delphi程序的调用，打
Delphi 7 中使用RAVE报表（二）
高速公路上的鱼编程学习专栏--请您指教
12-27 5214
Delphi 7 中使用RAVE报表（二）隔了好长时间终于有时间继续向大家介绍RAVE了，这次主要介绍Delphi7下的Rave组件。打开Delphi7，看到的rave页如下：                                                  Delphi7下的Rave包括有RvProject、RvSystem、RvNDRWriter、RvCustomCon
Delphi 7 中使用RAVE报表（六）
高速公路上的鱼编程学习专栏--请您指教
01-13 4470
Delphi 7 中使用RAVE报表（六）                  ——和数据库连接的报表（2）        在Delphi 7 中使用RAVE报表（五）中讲解了和数据库连接的报表，有朋友提出了问题，所以在用一篇文章讲解使用Query动态查询和存储过程连接数据库的报表。        因为要使用到存储过程，我们使用SQL_Server2000数据库，建立数据库Infot
Delphi 7 中使用RAVE报表（三）
高速公路上的鱼编程学习专栏--请您指教
12-29 4464
Delphi 7 中使用RAVE报表（三）      ——建立一张简单的报表 　   前面两篇，向大家介绍了RAVE的组件，从今天开始向大家介绍如何建立报表。首先要感谢li jack等各位朋友给我发的电子邮件，鼓励我继续写下去。今天也查了一下RAVE一词的意思。RAVE在辞典上的翻译为“咆哮”。 rave-up喧闹的宴会, 狂欢聚会，我们经常也听到锐舞派对，也就是RAVE PARTY。
Delphi 7 中使用RAVE报表（七）
高速公路上的鱼编程学习专栏--请您指教
03-21 4270
Delphi 7 中使用RAVE报表（七）----  一些技巧作为《Delphi 7 中使用RAVE报表》的最后，整理一些技巧给大家。1．设计好的Rave报表文件如何打包到EXE文件中？       在Rvproject的属性中有一个StoreRav，只要load对应的rav文件即可!同时最好把对应rvproject的ProjectFile属性清空。2．如何显示中文化的打印预览对话
Delphi 7 中使用RAVE报表（四）
高速公路上的鱼编程学习专栏--请您指教
01-10 3894
Delphi 7 中使用RAVE报表（四）                                                                                            ——利用程序设计一张报表   上一篇向大家介绍了建立一张简单报表的过程。这篇文章向大家介绍rave报表代码编程实例。窗体上放置组件：RvSyste
delphi的调用约定
高速公路上的鱼编程学习专栏--请您指教
02-04 1843
Calling conventions（调用约定）   在声明过程或函数时，你可以使用下面的指示字之一来指明调用约定：register、pascal、cdecl、stdcall以及safecall。比如，function MyFunction(X, Y: Real): Real; cdecl;...      调用约定决定了参数被传递给例程的顺序，它们也影响从堆栈中删除参数、传递参数时寄存器的使用
java中，关于四舍五入，换成Math.Round（）函数该如何操作
最新发布
06-01
在Java中，可以使用Math.round()函数来进行四舍五入操作。该函数的使用方法如下： ```java double num = 3.1415926; int roundedNum = (int) Math.round(num); ``` 其中，num为需要进行四舍五入的数字，Math.round...
评论 4
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值