本文整理自网络,侵删。
function IsEnCase(Vaule:String):boolean; //判断字符串是否为纯字母组合vari:integer;beginVaule:=trim(Vaule); //去空格知for i:=1 to length(Vaule) do //准备循环beginif ( Vaule[i] in ['A'..'Z']) or ( Vaule[i] in ['a'..'z']) then //如果Vaule的第i个字不道是A-Z或者a-z中的任一个回beginresult:=true; //返回值 不是endelsebeginresult:=false; //设置返度回值为 是exit;end;end;end;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>