控制小数位的另一种方法

利用Str这个函数可以很灵活的来控制小数位，例：
它会进行四舍五入

var
  s:string;
  value : double;
begin
  value := 25.367;
  str(value:0:2,s);
  self.caption := s;