strfunc.~pas

来自「使用delphi编程语言实现单词解析器」· ~PAS 代码 · 共 51 行

unit StrFunc;

interface
uses SysUtils,Classes;

function IsAlphabet(c:char):boolean;
function IsAWord(S:String):boolean;
procedure SortStrings(var SS:TStrings;Choice:Integer);

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;

procedure SortStrings(var SS:TStrings;Choice:Integer);
var i:integer;
    TmpSS:TStrings;
begin
    TmpSS:=TStringList.Create;
    if Choice=2 then  //降序
    begin
        SS.Count
    end;
    TmpSS.Free
end;

end.