求一算法—ELPHI），把一实数按十分位>0则个分位进1
求一算法，把一实数按十分位>0则个分位进1
如：1440.19 操作后等于1440.2

只要十分位数大于0就向个分位进1


[解决办法]

Delphi(Pascal) code

//写个函数function MyRound(Value: Double): Double;begin  Result := Trunc(Value * 10 + 0.9) / 10;end;//调用的例子ShowMessage (FloatToStr(MyRound(1440.19)));ShowMessage (FloatToStr(MyRound(1440.1)));ShowMessage (FloatToStr(MyRound(1440.109)));