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

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

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

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