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;