Delphi 四舍五入：Round 和 RoundTo 函数详解

在Delphi中，可以使用Round函数来进行四舍五入操作。\n\nRound函数的使用方法如下：\n\ndelphi\nvar\n num: Double;\n roundedNum: Integer;\nbegin\n num := 4.6; // 需要进行四舍五入的数字\n roundedNum := Round(num); // 调用Round函数进行四舍五入\n ShowMessage(IntToStr(roundedNum)); // 显示结果\nend;\n\n\n在上面的例子中，将数字4.6传递给Round函数，并将返回的结果赋值给roundedNum变量。最后，使用ShowMessage函数来显示结果。\n\n如果要对小数点后的位数进行四舍五入，可以使用RoundTo函数。RoundTo函数的使用方法如下：\n\ndelphi\nvar\n num: Double;\n roundedNum: Double;\nbegin\n num := 4.6789; // 需要进行四舍五入的数字\n roundedNum := RoundTo(num, -2); // 对小数点后两位进行四舍五入\n ShowMessage(FloatToStr(roundedNum)); // 显示结果\nend;\n\n\n在上面的例子中，将数字4.6789传递给RoundTo函数，并指定要四舍五入的位数为-2。最后，使用ShowMessage函数来显示结果。