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