字符串转换为数值？ ( 积分: 9 )

T

txl2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-02

• #1

各位我想先判断某一字符串是不是可以转换为数值类型,虽然我用
try
strtofloat（string1）;
except
转换可以实现功能，但是当发生异常的时候，程序就不能跟踪了，请问解决办法。

 

T

txl2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-02

• #2

各位我想先判断某一字符串是不是可以转换为数值类型,虽然我用
try
strtofloat（string1）;
except
转换可以实现功能，但是当发生异常的时候，程序就不能跟踪了，请问解决办法。

 

S

shangchao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-02

• #3

用val试试

 

A

ak_2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-02

• #4

strtofloatdef(string1,0.00)

 

T

txl2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-02

• #5

这是什么错误呀？
[Error] U_StringGrid.pas(58): Undeclared identifier: 'strtofloatdef'

 

A

ak_2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-02

• #6

哦，不好意思，好象只有delphi 6才有这个函数

 

D

djptony

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-02

• #7

TryStrToFloat

 

W

wuchunhua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-02

• #8

TryStrToFloat

 

T

txl2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-03

• #9

在delphi5 里面 好像没有这个函数呢 trystrtofloat ，怎么办，，怎么办？

 

S

seabird_2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-03

• #10

是不能跟踪了，不过在delphi外执行就可以了呀，你要是非要跟踪的话可以这样
function IsNumber(aim:string):bool;
var
i: integer;
begin
i := length(aim);
if i = 0 then
IsNumber := false
else
begin
while i > 0do
begin
if (aim >= '0') and (aim <= '9') then
i := i-1
else
break;
end;
if i > 0 then
IsNumber := false
else
IsNumber := true;
end;
end;

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
　　　　　　　　　　　　　　欢迎访问 http://www.coderpub.com 技术论坛

 

T

txl2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-22

• #11

不好意思,这么久了才结帖. 谢谢各位了,来者有分呢,,呵呵.

 

T

txl2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-22

• #12

thanks