是否有跨平台使用的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。