保留两位小数

procedure TForm1.Button2Click(Sender: TObject);
var
  a: real;
  b1: Single;      //浮点类型
  b2,b3: Currency; //货币类型，精确到小数点后四位
begin
  a := 1 / 9;
 
  //直接将 RoundTo 的结果传入，
  //如果再转存为其他浮点数，就会导致误差
  ShowMessage(FloatToStr(RoundTo(a, -2)));
 
  //保留2位小数，四舍五入
  b1 := RoundTo(a, -2);
  ShowMessage(FloatToStr(b1));
 
  //保留2位小数，四舍五入
  b2 := SimpleRoundTo(a);
  ShowMessage(FloatToStr(b2));
 
  //保留2位小数，不四舍五入
  b3 := Trunc(a *100)/100;
  ShowMessage(FloatToStr(b2));
end;