如何判断一个字符串中的内容全是英文或者数字？(100分)

C

CoCo_

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #1

问题是这样的，给定一个字符串，如何判断字符串的内容是全部由英文或者全部由数字组成
呢？因为要做一个数据校验，校验用户的地址，如果地址全部是由英文或者全部由数字组成则
是不合法的一个数据。

不吝赐教 []

 

S

smallsun007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #2

gs

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #3

function IsAlpha(const s: string): Boolean;
var
i: Integer;
begin
Result := False;
for i := 1 to Length(s) do
if s in ['A'..'Z', 'a'..'z'] then
begin
Result := True;
Break;
end;
end;
function IsNumber(const s: string): Boolean;
var
i: Integer;
begin
if not (Pos('-', s) in[0, 1]) then
begin
Result := False;
Exit;
end;
Result := false;
for i := 1 to Length(s) do
if (s in ['0'..'9', '.', '-']) then
begin
Result := true;
end;
end;