数据类型判断问题 ( 积分: 20 )

W

willing66

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-15

• #1

我想问一个，我一个字符串，我如何才能知道是一个可以转化为数字型的数据呀，如浮点数，整数等等。我以前的做是法是
var
str: string;
tmpdata: Double;
begin
Str:='1.2';
try
tmpData :=StrToFloat(Str)
except
showmessage('无法转化为数字！')
end;
end;
有没有更好的做法。

 

W

willing66

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-15

• #2

我想问一个，我一个字符串，我如何才能知道是一个可以转化为数字型的数据呀，如浮点数，整数等等。我以前的做是法是
var
str: string;
tmpdata: Double;
begin
Str:='1.2';
try
tmpData :=StrToFloat(Str)
except
showmessage('无法转化为数字！')
end;
end;
有没有更好的做法。

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-15

• #3

procedure TForm1.Button1Click(Sender: TObject);
var
flouble;
s:string;
begin
s:='100';
TryStrToFloat(s,fl)
//浮点数，整数
end;

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-15

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
flouble;
s:string;
begin
s:='1.01';
if TryStrToFloat(s,fl) then
showmessage(floattostr(fl))
else
showmessage('not integer/double');
end;

 

W

willing66

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-16

• #5

谢谢您的帮助！