function ARoundN(v: Double; n: Integer): Double; var I:Integer; begin result:=v; for I:=0 to n-1 do begin result:=result*10; end; result:=Round(result); for I:=0 to n-1 do begin result:=result/10; end; end;
Posted 我的学习笔记
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了delphi 小数点四舍五入问题相关的知识,希望对你有一定的参考价值。
function ARoundN(v: Double; n: Integer): Double; var I:Integer; begin result:=v; for I:=0 to n-1 do begin result:=result*10; end; result:=Round(result); for I:=0 to n-1 do begin result:=result/10; end; end;
以上是关于delphi 小数点四舍五入问题的主要内容,如果未能解决你的问题,请参考以下文章