检测输入字符是否为字母

function IsAChar(s:String):Boolean;//定义一个函数，传递的参数为字符串类型，返回值为布尔类型
  var
    L:Integer; //定义一个变量，保存字符串的长度
    i:Integer; //while语句的初始条件
    C:String;//索引得到的单个字符串
  begin
    L:=Length(s);//获取参数的长度
    i:=1;//while循环的初始值
    while i<=L do
      begin
       C:=Copy(s,i,1);//通过Copy函数获取S字符串中从第i个开始的1个字符
         if ((C>'a') and (C<'z')) or ((C>'A') and (C<'Z'))  then
            begin
              result:=true;    //返回布尔值为假
            end
         else
                result:=false;
                break;
      Inc(i);
      end
  end;
end.