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

发布时间：2020-12-15 09:34:26 所属栏目：大数据来源：网络整理

导读：任何人都可以帮我找到一个单元,它定义了Delphi XE3中用于跨平台使用的 MulDiv 功能吗？它的原型是在Windows单元中定义的(通常如此),在OSX下显然不起作用. 在Delphi XE3中是否有用于跨平台使用的 MulDiv 功能？解决方法跨平台使用没有 MulDiv 功能,只有从Wi

任何人都可以帮我找到一个单元,它定义了Delphi XE3中用于跨平台使用的 MulDiv功能吗？它的原型是在Windows单元中定义的(通常如此),在OSX下显然不起作用.

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

解决方法

跨平台使用没有 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.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!