30分！！！ 问个很简单的问题。~~~~

Question

在面班上放置了 Edit1.text / Edit2.text/ Edit3.text
Edit1.text / Edit2.text/ 为查询后的输出的结果数。
现在求 Edit3.text 显示为 Edit1.text 除以 Edit2.text  的结果数。
Edit1.text 为 9Edit2.text  3Edit3.text 结果为 3 刚刚学Delphi 有点不太懂，所以请教一下。

Answer 1

Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));

Answer 2

formatfloat('0.00',s) s= 你原来的数字

Answer 3

Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
让这一句该成让结果保存为：保留两位小数。比如： 45.78865  = 45.79---------------------------------------------
formatfloat('0.00',s) s= 你原来的数字
好象不行~~~~~~

Answer 4

uses Math;i=RoundTo(100.256 , -2 );返回i为100.26

Answer 5

Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));这一句如何改？

Answer 6

上面的uses里面加上 Math;
procedure TForm1.Button1Click(Sender: TObject);
var
    f:Single;
begin
    f:=StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text);
    Edit3.Text:=FloatToStr(RoundTo(f,-2));
end;
你最好看书学习一下，这个是最简单的代码啊 -_-!!

Answer 7

作　　者：  DelphiFangs ()      
=================
[delphi獠牙]？是fans吧

Answer 8

谢谢大家的批评与建议。PS 编译能通过，但是还不行，报错为："is not a valid floating  point value"

Answer 9

如果不输入数字字符的话用FloatToStr()函数的话，会出现那个问题的。
最好还要判断Edit2的值是否为’0‘，不然也会出现错误，