unit StrFunc;

interface
uses SysUtils,classes;

function IsAlphabet(ch:char):boolean;
function IsWord(str:String):boolean;

implementation
function IsAlphabet(ch:char):boolean;
var
foo:boolean;
begin
foo:= false;
if((ch >= 'a') and (ch <= 'z')) or ((ch >='A') and (ch <='Z')) then
begin
foo:=true;//如果此字符ASCII值在a-z或A-Z之间说明此字符是字母
end;
result:=foo;
end;
function IsWord(str:String):boolean;

var
i:Integer; //变量i只是增量
StrTemp:String; //接受trim之后的变量
foo:boolean;//结果

begin
strTemp := trim(str);
i := 1;
foo:=true;

while i <= Length(strTemp) do
begin
if not IsAlphabet(strTemp[i]) then
begin
foo:= false; //如果有一个字符不是字符那么这个单词就一定不是单词
end;

Inc(i); //注这里的INC函数相当于我们C/C++中的i++;
//即i++ 在delphi里可表示为Inc(i)
end;

result := foo; //说句实话个人非常不喜欢delphi这种语法大小写的result都可以.
//函数的返回值有多种方法result可以函数名也可以.巨汗ing.把true值改为变量名取foo的值

end;

end.