各位大大，小弟刚学delphi，遇到一个小问题：我定义了三个Extended类型的变量，赋值后作减法运算，比如计算结果应为 682.6 ，但是程序的计算结果却是 682.599999999977 ，不知这是怎么回事？求各位大大解释一二为谢!!!!
小弟用的是delphi5

[此贴子已经被作者于2007-10-24 22:18:46编辑过]

帖代码

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

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编辑过]

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

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

LS办法可行.

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

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