请问，如何让DELPHI判断是字符还是数字？ (20分)

J

J7T

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #1

如何让DELPHI判断是字符还是数字？
比如AA382109SFDS，其中AASFDS是字符382109就是数字，但是怎么通过程序来判断？

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #2

if c in ['0'..'9'] then ...
或
if (ord(c) >= ord('0'))and(ord(c) <= ord('9')) then ...

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #3

if str[1] in ['0'..'9'] then
第一个字符是数字

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #4

变成string通过string[1]变成char
if string in ('0'..'9')来判断

 

人

人在昆明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #5

我来一个俗的
try
StrToInt(your str);
ShowMessage('Is Num');
except
ShowMessage('Is Not Num');
end;

 

J

J7T

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #6

呵呵，我怎么没想到~~~。

 

H

HeBaisong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #7

procedure StrAndNum(const Str:String ;var ReturnStr:String;var ReturnNum:Integer);
var
I:Integer;
begin
ReturnNum:=0;
ReturnStr:='';
for I:=0 to Length(Str)-1 do
if Str in ['0'..'9'] then
ReturnNum:=ReturnNum*10+StrToInteger(Str)
else
ReturnStr:=ReturnStr+Str;
end;
上面这个过程可以把你字符窜里的分开。