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

Question

谁能帮我找到一个单元，它定义了MulDivDelphi XE3 中用于跨平台使用的功能？它的原型是在 Windows 单元中定义的（通常），这在 OSX 下显然不起作用。

MulDivDelphi XE3有跨平台使用功能吗？

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。