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 算不了的, 算不了就返回 -1var  n1,n2: Integer;begin  n1 := MulDiv(MaxInt, MaxInt, 2);  n2 := MulDiv(1, 2, 0);  ShowMessageFmt('%d : %d', [n1, n2]); {-1 : -1}end; 

相关阅读 >>

Delphi 2009 之 tcategorypanelgroup[3]: color

Delphi mscomm1自动获取串口

Delphi编写的lpk.dll专杀，可清理rar

Delphi drawing text 绘制文本

Delphi 调用外部程序并等待其运行结束

Delphi 获取汉字拼音首字母

Delphi thttpclient 时获取跳转后的 url

Delphi解决dll注入桌面卡的问题

Delphi 获取系统服务service id

Delphi 取16进制字符的10进制的integer值

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