Set8087CW过程 - Borland Delphi 开发工作者手册

返回介绍

Set8087CW过程

发布于 2019-08-04 字数 871 浏览 1023 评论 0

System

procedureSet8087CW(NewCW:Word);

设置在浮点数单元中的控制字和在系统单元中的变量Default8087CW。

浮点数单元控制字控制了浮点数计算的精度、舍入模式,以及是否确定浮点数操作引发异常。在硬件异常之后,变量Default8087CW被设置成浮点数单元控制的初始设置。改变控制字可以被用于取消在数值代码中的某项浮点数异常(即第三部分代码)。使用这个函数设置浮点数处理器控制字限制哪一种浮点计算错误种类(被0除,溢出等等)将发出异常。这个可以应用到所有的应用程序和所有的应用程序所调用的模块中。

例如,当使用OpenGL传递3D图象时,推荐使用它来取消所有的浮点数异常。为此,在任何调用OpenGL函数之前的主窗体OnCreate事件中频调用Set8087CW($133f)。

procedure NumericExample;

var

Saved8087CW:Word;

begin

Saved8087CW := Default8087CW;

Set8087CW($122f);{消除所有的fpu异常}

ThirdPartyRoutine;

Set8087CW(Saved8087CW);

end;

上一篇:Selectdirectory函数

下一篇:SetCurrentDir函数

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!