如何判断变量为数字还是英文字母

Question

假设
var
 s:string;
如果判断当S为英文字母时执行....
当S为数字字母时执行......
{'.....'为代码，不用理会}

Answer 1

去看asic码表，对照着取范围即可

Answer 2

function IsNum(str: string): Boolean;
var
  i: integer;
begin
  result := False;
  for i := 1 to length(str) do
    if not (str[i] in ['0'..'9']) then
    begin
      result := false;
      exit;
    end;
  result := True;
end;

Answer 3

s in [0..9] ...
s in['A'..'Z']...

Answer 4

Delphi 2009 新增单元 Character[2]: IsLetter、IsUpper、IsLower、IsDigit、IsNumberuses
  Character;IsLetter: {是否是个字母; 范围 A..Z 与 a..z}
IsUpper:  {是否是个大写字母; 范围 A..Z}
IsLower:  {是否是个小写字母; 范围 a..z}
IsDigit:  {是否是个十进制数字; 范围 0..9}
IsNumber: {是否是个数字符号; 范围包括 0..9, 还有 ASCII 码中的 178、179、185、188、189、190 等}不过是判断1个字符

Answer 5

s[1] in ['0'..'9'];//数字
s[1] in ['A'..'Z'];//字母

Answer 6

你把楼上老大的代码稍作修改就可以了if s[1] in ['0'..'9'] then
   //数字
if s[1] in ['A'..'Z','a'..'z'] then
   //字母

Answer 7

用leftstr取第一个字符进行判断。

Answer 8

语句是怎样呢？？并且delphi出错的内容是：Type of expression must be BOOLEAN

Answer 9

if strtointdef(copy(s,1,1),99)=99 then
 showmessage('第一个为字母')
else
  showmessage('第一个为数字');