|
|
#2
liutianfeiyu2007-03-02 09:10
|
function isaword(s:string):boolean;
var
t:string;
index:integer;
begin
t:=trim(s);
index:=1;
while index<=length(t) do
begin
if not isdaxiao(t[index]) then
begin
result:=false;
end;
inc(index);
end;
result:=true;
end;
语句
谢谢~