[求助]数据计算和类型的小问题，困惑 - 编程论坛

#2

anthony6342007-10-24 12:44

帖代码

#3

xu20002007-10-24 13:22

浮点数运算是有误差的，因为浮点数使用的是科学计数法。楼主可以使用Currency这个数据类型。

#4

honvin2007-10-24 22:40

procedure TForm1.Edit1Exit(Sender: TObject);
begin
qd:=0;zd:=0;qc:=0;
if (Edit1.Text<>'')and(Edit2.Text<>'') then
begin
qd:=StrToFloat(Edit1.Text)*1000+StrToFloat(Edit2.Text);
if (Edit3.Text<>'')and(Edit4.Text<>'') then
begin
zd:=StrToFloat(Edit3.Text)*1000+StrToFloat(Edit4.Text);
if zd<qd then
begin
MessageDlg('错误！起点大于终点！',mtWarning,[mbOK],0);
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
end else
begin
qc:=zd-qd;
Edit5.Text:=FloatToStr(qc);
end;
end;
end;
end;

三个变量为全局变量Extended，四个Edit的OnExit都是这个，有时计算出的结果是对的，有时不对

[此贴子已经被作者于2007-10-24 23:05:58编辑过]

#5

sky_yang_sky2007-10-25 08:52

由於你用的是extended類型，所以會出現這種情況，如果你不想改變變量類型又想讓它以你想要的位數出現，那你在轉化為字符型之前進行一下這個函數的轉化
qc:=round(qc*10)/10;
Edit5.Text:=FloatToStr(qc);
應該行了

[此贴子已经被作者于2007-10-25 8:53:03编辑过]

#6

缘吇弹2007-10-25 21:50

LS办法可行.

#7

honvin2007-10-25 23:27

谢谢大大,这个办法是可行,但要改的地方太多了,不过也只能这样了,改吧.............

#8

xiaofkg2007-11-02 20:23

我想可以用format函数格式化一下