以下是的代码。出现是比如说edit1的值是12.22,edit2的值是12.21,而求出得到的值是
也就是说凡是小于0.01的值相加减时就会出现不相等错误,这是怎么会事求各位大侠帮忙。Var Str1,str2,str3:Double;
begin
Str1:=strtofloat(edit1.text);
str2:=strTofloat(edit2.text);
str3:=floatTostr(Str1-str2);
edit3.text:=str3;
end;
end.
以下是所取的值,
edit1=12.21;
edit2=12.20;
edit3=00000094....
也就是说凡是小于0.01的值相加减时就会出现不相等错误,这是怎么会事求各位大侠帮忙。Var Str1,str2,str3:Double;
begin
Str1:=strtofloat(edit1.text);
str2:=strTofloat(edit2.text);
str3:=floatTostr(Str1-str2);
edit3.text:=str3;
end;
end.
以下是所取的值,
edit1=12.21;
edit2=12.20;
edit3=00000094....
解决方案 »
- delphi7 提示 is not valid integer value
- 关于XML的问题
- 简单的问题(100分送)
- ******************(100分问题)如何才能在一个AUTOMATION对象的方法中返回自定义的AUTOMATION对象?****************
- delphi5.0问题
- 如何做一个坐标图
- findcsdn(searchcsdn)兄请进来接分!!!
- 小问题,可以告诉我哪里有DBGridEh for Delphi6下载吗?
- getmem的用法?再次提问!
- 一个老问题,Form之间互相传递参数?
- 在delphi中如何获取系统时间?
- Canvas does not allowing drawing 错误如何解决
例如A-B=0.0000001,那么可以认为A=B
请问:你这句话要得嘛???
你的Str3是Double型的怎么能转换成String型?????
你的Delphi是哪个版本的??编译的时候能通过??我用的Delphi7就通不过!!
这样答案就是0.01
只有把Str1,Str2,Str3设为Extended才行!
http://community.csdn.net/Expert/topic/3607/3607806.xml?temp=.9890863