如何从一个字符串中截取一段字符?

                            
比如有一字符串str1:='800900名称种类',要从str1字符串中截取得到str2:='800900',如何实现?   
  var  
      str1,str2:array   [1..10]   of   string;  
      i,j:integer;  
  begin  
      str1:='800900名称种类'  
      for   i:=1   to   length(str1)   do  
            begin  
                for   j:=0   to   9   do  
                  if   str[i]='+j+'   then  
                  begin  
                      str2[i]:=str1[i];  
                  end;  
              end;  
  end;

查看回复