delphi如何检测一个字符是否为数字?

Question

delphi如何检测一个字符是否为数字不为数字?

Answer 1

var ch:char;
begin
  ch:='a';
  if ch in ['0'..'9'] then ShowMessage('是数字')
   else ShowMessage('不是数字');
end;

Answer 2

try
  StrToFloat(str);
  ShowMessage('是數字');
except
  ShowMessage('不是數字');
end;

Answer 3

function IsNumeric(Data: string) : boolean;
var
  i, code : integer;
begin
  val(data, i, code);
  result := code = 0;
end;这个函数先将字符串转换为数，如果该字符串不是数字，val的第3个参数会不为0。

Answer 4

var 
  zhengshu:array [1..9] of integer;
  ch:char;
begin
  ch:=......;
  if  ch in zhengshu then......;
  else ......;
end;

Answer 5

var ch:char;
begin
  ch:='a';
  if ch in ['0'..'9'] then ShowMessage('是数字')
   else ShowMessage('不是数字');
end;