Delphi 银行家算法四舍五入：RoundTo 函数实现

Delphi 中的四舍五入银行家算法可以通过使用 RoundTo 函数来实现。RoundTo 函数可以将一个浮点数四舍五入到指定位数的精度。

银行家算法是一种特殊的四舍五入算法，它会根据需要舍入的位数后面的数字来决定舍入的方式。具体规则如下：

• 如果需要舍入的位数后面的数字小于 5，则舍入到最近的较小整数。
• 如果需要舍入的位数后面的数字大于 5，则舍入到最近的较大整数。
• 如果需要舍入的位数后面的数字等于 5，则判断舍入位数后面的数字是否为奇数，如果是奇数，则舍入到最近的较大整数；如果是偶数，则舍入到最近的较小整数。

以下是一个使用银行家算法进行四舍五入的示例代码：

function RoundBank(const AValue: Extended; const ADigits: Integer): Extended;
var
  PowerVal: Extended;
begin
  PowerVal := Power(10, ADigits);
  Result := RoundTo(AValue * PowerVal, -ADigits) / PowerVal;
end;

procedure TestRoundBank;
begin
  Writeln(RoundBank(1.2345, 2)); // 输出 1.23
  Writeln(RoundBank(1.235, 2)); // 输出 1.24
  Writeln(RoundBank(1.25, 0)); // 输出 1
  Writeln(RoundBank(1.5, 0)); // 输出 2
end;

在上面的示例代码中，RoundBank 函数接受一个浮点数和需要舍入的位数作为参数，并返回四舍五入后的结果。通过调用 RoundTo 函数，将浮点数乘以相应的倍数，然后再除以相同的倍数，从而实现四舍五入。

测试代码 TestRoundBank 演示了 RoundBank 函数的使用。在输出结果中，可以看到四舍五入后的值符合银行家算法的规则。