别忘了还有一个老PASCAL函数
VAL 和 STR可实现四舍五入
看看帮助还有用strtofloat不要用strtoint
这样输入小数就没事自动取整可以在onkeypress实现,当key=#13时
edit1.text:=val(...)看帮助其他问题一样处理