Delphi WindowsAPI: MulDiv


本文整理自网络,侵删。

 
WindowsAPI: MulDiv

MulDiv(a, b, c) 中的 a、b、c 是三个 Integer, 同时返回一个 Integer.

其计算方式类似于: a * b / c 或 a * b div c, 但也有区别.

//例一: 相同处
var
  a,b,c,n1,n2: Integer;
begin
  a := 4;
  b := 3;
  c := 2;
  n1 := a * b div c;
  n2 := MulDiv(a, b, c);
  ShowMessageFmt('%d : %d', [n1, n2]); {6 : 6}
end;


//例二: MulDiv 中前两个 32 位整数 a 和 b 相乘后会先得出一个 64 位整数, 这可以尽量使运算不会溢出.
var
  a,b,c,n1,n2: Integer;
begin
  a := MaxInt div 2;
  b := 3;
  c := 2;
  n1 := a * b div c;     {这个运算会溢出}
  n2 := MulDiv(a, b, c); {MulDiv 会算出正确的结果}
  ShowMessageFmt('%d : %d', [n1, n2]); {-536870913 : 1610612735}
end;


//例三: MulDiv 会自动四舍五入.
var
  a,b,c,n1,n2: Integer;
begin
  a := 1;
  b := 7;
  c := 4;
  n1 := a * b div c;     {这个结果只是截取了整数部分}
  n2 := MulDiv(a, b, c); {MulDiv 会四舍五入}
  ShowMessageFmt('%d : %d', [n1, n2]); {1 : 2}
end;


//例四: 也有 MulDiv 算不了的, 算不了就返回 -1
var
  n1,n2: Integer;
begin
  n1 := MulDiv(MaxInt, MaxInt, 2);
  n2 := MulDiv(1, 2, 0);
  ShowMessageFmt('%d : %d', [n1, n2]); {-1 : -1}
end;

相关阅读 >>

Delphi url取得文件名

Delphi 有关debughook

Delphi xe6调用android手机标准功能

Delphi 最简单的ttcpserver与ttcpclient通信实例

Delphi 文件夹操作

Delphi downloadtomemory

Delphi xe6 android 查看电池信息

Delphi响应wmi事件(响应网线断开)

Delphi操作文本文件简介

Delphi为你的窗体有效地提供剪贴板的相关操作

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...