怎么这个while循环跳不出来？大家进来看看吧！

Question

while ((IsLetterOrNumber(Gl_ch))=0) or
                ((IsLetterOrNumber(Gl_ch))=1) do
          begin
            Inputword:=Inputword+Gl_ch;
            showmessage(Gl_ch+' + '+inputword);
            str_Input:=GetStringTail(str_Input);
            Gl_ch:=ReadChar(str_Input);
          end;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
说明：
function IsLetterOrNumber(ch:Char):integer;
begin
  if ((ch>='a') and (ch<='z')) or ((ch>='A') and (ch<='Z')) then Result:=0 //字母
  else if (ch>='0') and (ch<='9') then Result:=1//数字
       else if (ch=' ') then Result:=3//空格
            else Result:=2; //其他
end;
function GetStringTail(Str:String):string;
var
  str_temp:string;
  int_Strlength:integer;
begin
  int_strlength:=length(Trim(str));
  str_temp:=copy(str,2,int_strlength);
  result:=str_temp;
end;function ReadChar(str:String):char;
begin
  if Length(str)>0 then  Result:=str[1]
end;

Answer 1

发现的错误是：当str_Input读取玩了以后，
执行Gl_ch:=ReadChar(str_Input)后， Gl_ch总是为"H"。这样，在进行while判断时，自然总是不能跳出。那么为什么Gl_ch到最后总是为H呢？ 
不明白啊！
要怎么解决呢？

Answer 2

大家看看吧！为什么总是“H”？
Gl_ch:=ReadChar(str_Input)
showmessage(Gl_ch);
到最后显示的总是H

Answer 3

str_Input:=GetStringTail(str_Input);
            Gl_ch:=ReadChar(str_Input);
你的STR——INPUT不变，当然GL——CH也不变了；

Answer 4

你的readchar函数没考虑length为0的情况。

Answer 5

to outer2000:我的GetstringTail变了呀！
function GetStringTail(Str:String):string;
var
  str_temp:string;
  int_Strlength:integer;
begin
  int_strlength:=length(Trim(str));
  str_temp:=copy(str,2,int_strlength); //就在这里！减少了第一个字符！
  result:=str_temp;
end;

Answer 6

我想，不论怎么样，他也没理由总是一个“H"吧！（为什么不是W,X别的呢，总是H）

Answer 7

单步跟踪一下你是不是要判断 str_Input 是不是字数和数字组合 ？

Answer 8

if Length(str)>0 then  Result:=str[1]
修改为：
Result:='';
if Length(str)>0 then  Result:=str[1];

Answer 9

现在才发现一个问题！
为什么现在在CSDN上我找不到提问的地方了？

Answer 10

str_temp:=copy(str,2,int_strlength)
---->str_temp := RightStr(str, int_strlength-1)

Answer 11

还是不行！to BlueTrees:
Result:=''不行吧，类型不匹配

Answer 12

function ReadChar(str:String):char;
begin
  if Length(str)>0 then  
    Result:=str[1]
  else
    Result := #0 
end;
把分给了westfly(西翔)吧，其实跟踪一下就会发现
length为0
Gl_ch值为str最后一个，没法改变
你的ReadChar调用也有问题

Answer 13

for i:= 1 to length(str_Input) do
begin
   j:=IsLetterOrNumber(str_Input[i])
   if (j=0) or (j=1) then
   BEGIN
      Gl_ch:=ReadChar(str_Input);     Inputword:=Inputword+Gl_ch;  
   END
   ELSE
    BREAK;
    
end;
效率高多了
while ((IsLetterOrNumber(Gl_ch))=0) or
                ((IsLetterOrNumber(Gl_ch))=1) do
          begin
            Inputword:=Inputword+Gl_ch;
            showmessage(Gl_ch+' + '+inputword);
            str_Input:=GetStringTail(str_Input);
            Gl_ch:=ReadChar(str_Input);
          end;

Answer 14

不好意思没有注意函数返回类型if Length(str)>0 then  Result:=str[1]
修改为：
Result:=Char(0);
if Length(str)>0 then  Result:=str[1];