StrToFloat 函数用法？？？(57分)

C

cbdiy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-14

• #1

var
fAllMoney : double;
fAllMoney := 1000.12;
label1.caption := '1000.12'
if fAllMoney > strtofloat(label1.caption) then //返回为真

晕？？、

 

特

特尔斐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-14

• #2

对于浮点数来说，if fAllMoney > strtofloat(label1.caption) then 这种比较是不
准确的。

 

C

cbdiy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-14

• #3

why??
加个temp :=strtofloat(label1.caption) 就ok了。

 

土

土土

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-14

• #4

跟踪一下,看情况加些强制条件试试

 

D

delphing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-14

• #5

我也遇到过，用formatfloat格式化让小数位相同就行了，

 

F

forgot2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-14

• #6

用Currency类型

 

C

cbdiy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-14

• #7

thanks,你的forgot-D考虑ing............

 

Y

yf_zq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-07

• #8

比较浮点型数据.小数位数要相同.
可以用formatfloat函数

 

P

plane822

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-22

• #9

formatfloat('%-2f',[])

 

碧

碧血剑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #10

strtofloat返回的是extended类型
和Double类型的精度不一样
两者进行比较就会有问题
正如你所说的
加个temp :=strtofloat(label1.caption) 就ok了。

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #11

看下例：
procedure TForm1.Button1Click(Sender: TObject);
var
fAllMoney : double;
temp:Extended;
code:Integer;
begin
fAllMoney := 1000.12;
val (label1.caption,temp,code);
if code=0 then
if fAllMoney=temp then
showmessage('OK');

end;

 

C

cbdiy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-07

• #12

多人接受答案了。