基础没有学好，请教各位 ( 积分: 50 )

Y

yxbhw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-10

• #1

请教一个基础问题：
procedure TForm1.Button1Click(Sender: TObject);
var
d:do
uble ;
begin
d := -12.35;
if d = -12.35 then
showmessage('相等')
else
showmessage('不相等');
//结果竟然是这一句
end;
怎么会出现这种问题？

 

Y

yxbhw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-10

• #2

请教一个基础问题：
procedure TForm1.Button1Click(Sender: TObject);
var
d:do
uble ;
begin
d := -12.35;
if d = -12.35 then
showmessage('相等')
else
showmessage('不相等');
//结果竟然是这一句
end;
怎么会出现这种问题？

 

S

SmallGhost

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-10

• #3

浮点数的问题，一般浮点数不建议用与比较操作！

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-10

• #4

浮点数的精度问题
d = -12.35 左边的都是双精度型 右边的-12.35虽然是浮点型 但不是双精度型

 

H

hyl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-10

• #5

procedure TForm1.Button1Click(Sender: TObject);
var
d:Extended;
begin
d := -12.35;
if d= -12.35 then
showmessage('相等')
else
showmessage('不相等');
//现在好了
end;

 

Y

yf_zq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-10

• #6

procedure TForm1.Button1Click(Sender: TObject);
var
d:do
uble ;
begin
d := -12.35;
if Comparevalue(d,-12.35,0) then
showmessage('相等')
else
showmessage('不相等');
end;

 

Y

yxbhw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-10

• #7

多人接受答案了。