关于字符串赋值的问题,送分啊

                            
OnButton1Click().   
  var  
  tempstr,hello:String;  
  i,j:integer;  
  begin  
            j:=1;  
            hello:='hello';  
            for   i:=1   to   length(hello)   do  
            begin  
                      if((ord(hello[i])and   $01111111)>$00111111)then  
                      begin  
                            tempstr[j]:=hello[i];  
                            inc(j);  
                      end;  
            end;  
            memo1.lines.add(tempstr);  
  end;  
  在memo1中什么都没有输出,tempstr中并没有等于'hello',这是怎么  
  回事啊?  
 

查看回复