如何取录入金额的小数点后两位及四舍五入！

Question

请教：
　　如何取录入金额的小数点后两位及四舍五入！
　　多谢！

Answer 1

在TEdit控件中录入金额　　我想在OnExit事件中检测录入数据，如果没有小数，则加.00　　如果有小数，则取小数点后两位，且四舍五入！　　多谢！

Answer 2

if i=pos(edit1.text,'.') then
   copy(s,i+1,2);//s为保存小数点后两位
else
  edit1.text:=edit1.text+'.00';

Answer 3

try
  strtofoloat(edit1.text);
  edit1.Text := formatfloat('0.00',strtofoloat(edit1.text));
except
  edit1.text:='0.00';
  exit;
end;

Answer 4

var
  jinge: double;
begin
  jinge:= roundTo(jinge,－2);
end;

Answer 5

看看
http://www.csdn.net/Develop/Read_Article.asp?Id=6459

Answer 6

RoundTo() 
不过要先设置一下: SetRoundMode(mrUp);

Answer 7

学习!!
看来roundto比round要强大
楼主的问题用roundto就很好解决了风焱兄的方法也不错,很灵活
不过上面说的:要n位小数，只需简单修改
我实在想不出有什么只要简单修改的方法,风焱兄能不能解释一下