怎么判断输入的一串文本里面的每个字是字符还是数字。

Question

rt

Answer 1

procedure TForm1.CheckNumber(EditText:String);
var
  i:integer;
begin
  for i:=0 to Length(EditText) do
  begin
    if not (EditText[i] in ['0','9']) then
    begin
      ShowMessage(EditText+' 不是数字');
      Exit;
    end;
  end;
  ShowMessage(EditText+' 是数字');
end;

Answer 2

1、做一个循环，依次判断每个字符是否为数字
如：
function IsNum(str: string): boolean;
var
  i: integer;
  isPoint: Boolean;
begin
result := true;
isPoint := false;
for i = 1 to length(str) do
begin
  if (str[i] = '.') then
    if isPoint then
    begin
      result := false;
      break;
    end
    else isPoint := True;
  if not (str[i] in ['0'..'9']) then
  begin
    result := false;
    break;
  end;
end;2、用Val函数，如
function IsNum(str: string): boolean;
var
  i, s: integer;
begin
  val(str, i, s);
  result := s = 0;
end;