是否有用于跨平台使用的 MulDiv 功能？

Question

谁能帮我找到一个单元，它定义了 Delphi XE3 中的MulDiv 函数以供跨平台使用？它的原型是在 Windows 单元中定义的（通常），在 OSX 下显然不能工作。

Delphi XE3 中是否有MulDiv 跨平台使用功能？

Answer 1

没有跨平台使用的MulDiv函数，只有从Windows导入的那个。所以，如果你需要，你需要自己为不同的平台制作这样的功能。例如 Lazarus 为此使用类似的代码：

function MathRound(AValue: Extended): Int64; inline;
begin
  if AValue >= 0 then
    Result := Trunc(AValue + 0.5)
  else
    Result := Trunc(AValue - 0.5);
end;

function MulDiv(nNumber, nNumerator, nDenominator: Integer): Integer;
begin
  if nDenominator = 0 then
    Result := -1
  else
    Result := MathRound(Int64(nNumber) * Int64(nNumerator) / nDenominator);
end;

来源lcltype.pp 单元和问题#0009934。