MulDiv（转自http://st251256589.blog.163.com/blog/static/164876449201152184617407/）

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;