strfunc.pas

使用delphi编程语言实现单词解析器

unit StrFunc;

interface
uses SysUtils,Classes;

function IsAlphabet(c:char):boolean;
function IsAWord(S:String):boolean;

implementation

//函数IsAlphabet判断一个字符是否是英文的大小写26个字母之一
function IsAlphabet(c:char):boolean;
begin
    if ( (c>='a') and (c<='z') ) or
       ( (c>='A') and (c<='Z') ) then
        Result:=True
    else
        Result:=False;
end;
//函数IsAWord判断一个字符串是否是一个单词
function IsAWord(S:String):boolean;
var
  Index: integer;
  T:string;
begin
   T:=Trim(S);
   Index:=1;
   While Index<=Length(T) do
   begin
      if not IsAlphabet(T[Index]) then  //如果不是大小写字母，就返回False
          Result:=False;
      Inc(Index);
   end;
   Result:=True;
end;


end.