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;