如何验证字符串中的第一个字符是字母还是数字？

Question

仅处理具有有效帐号的帐户查询，投诉和建议。编写名为ValidateAccNum的子程序，以接收帐号作为字符串，表示天气是否有效。有效的帐号必须符合以下条件：

• 帐号必须只有七个字符。

• 帐号必须以字母开头。

我遇到的问题是弄清楚帐号的第一个字符是字符串还是整数。继承我的代码：

procedure TfrmQuestion3.ValidateAccNum(AccNum: string);
var
  RealACCNum : Boolean;
  ACCNumLength : Integer;
  StartACCNum : string;
begin
  RealACCNum := False;
  ACCNumLength := Length(AccNum);
  StartACCNum := AccNum[1];

  If (ACCNumLength = 7) and (StartACCNum = string) // <--- This is obviously the 
                                                   //      problem, I know its wrong
    then RealACCNum = True
    else exit;
  end;

那么如何查看天气是字符串字符还是整数？

Answer 1

if (Length(AccNum) = 7) and IsCharAlpha(AccNum[1]) then

你可以像那样检查^
|