求一算法（DELPHI），把一实数按十分位>0则个分位进1

Question

求一算法，把一实数按十分位>0则个分位进1
如：1440.19 操作后等于1440.2只要十分位数大于0就向个分位进1

Answer 1

//写个函数
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)));

Answer 2

上面例子中的第三种情况, LZ的描述中未作明确约定, 所以结果可能并不与LZ的预期相符。

Answer 3

jadeluo:谢谢！
已加你为好友！