求一函数保留两位小数，第二位小数后四舍五入。

Question

求一delphi 函数保留两位小数，第二位小数后四舍五入
例如:19.44=19.44
     19.43=19.43
     19.45=19.50
     19.46=19.50这样。
谢谢。

Answer 1

土方法var
  s:string;
begin
  s := FormatFloat('0.00',19.445555); //19.45
  if StrToInt(RightStr (s,1)) >= 5 then
    s := FormatFloat('0.0',StrToFloat(s))+'0'; //19.50
  ShowMessage(s);
end;

Answer 2

修改了一下可以了。谢谢  bdmh