本文整理自网络，侵删。
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; 相关阅读 >>
winapi 字符及字符串函数(3): charupper - 字符或字符串转大写
Delphi win32，win64用于单/多线程计数素数的整数性能比较
Delphi 解决“richedit line insertion error”错误
Delphi winapi: gettickcount - 获取系统已启动的时间
更多相关阅读请进入《Delphi》频道 >>
