如何把edit1.text中的类float值，小数位有好多位，四舍五入成只有小数后一位的值写入edit2？

Question

如何把edit1.text中的类float值，小数位有好多位，四舍五入成只有小数后一位的值写入edit2？还有就是不四舍五入，只保留小数位后一位的值写入EDIT3呀？
例如我在EDIT1中输入382.382,edit2会在button1click后有382.4,edit3.text中有382.3

Answer 1

Edit2.Text:=floattostr(Formatfloat('0.0',strtofloat(Edit1.text)));

Answer 2

不好意思上一个不对！这一个
 Edit2.Text:=Formatfloat('0.0',strtofloat(Edit1.text)-0.09);

Answer 3

还是不对吧！
 Edit1.Text:=Format('%0.1f',[strtofloat(Edit1.text)]);

Answer 4

var
  a: Real;        //uses math
begin
  a := StrToFloat(Edit1.Text);
  Edit2.Text := FloatToStr(RoundTo(a,-1));
end;

Answer 5

Edit2.Text := Formatfloat('0.0', strtofloat(Edit1.text));
  Edit3.Text := Formatfloat('0.0', StrToFloat(Edit1.Text) - 0.05);
楼上说的很明白呀！

Answer 6

function : simpleroundtoSimpleRoundTo(1234567, 3) 1234000
SimpleRoundTo(1.234, -2) 1.23
SimpleRoundTo(1.235, -2) 1.24
SimpleRoundTo(-1.235, -2) -1.23试试。