Z zdqyundou Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-11 #1 我有这样的字符串：2003级1班，怎样取出“级”和“班”之间的1？不能按照位数来取，<br>因为中间的1也有可能是11这样两位的数字！请教高手！
I ildg Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-11 #2 就是在“级”和“班”之间的字符，<br>取出来不就行了？
C chenshaizi Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-11 #3 中间的1也有可能是11这样两位的数字<br>分两种情况取不就行了。
L lich Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-11 #4 var<br> m, n: Integer;<br> t: String;<br>begin<br> m := Pos('级', '2003级1班');<br> n := Pos('班', '2003级1班');<br> t := Copy(''2003级1班', m + 2, n - m -2);<br>
var<br> m, n: Integer;<br> t: String;<br>begin<br> m := Pos('级', '2003级1班');<br> n := Pos('班', '2003级1班');<br> t := Copy(''2003级1班', m + 2, n - m -2);<br>
C chenshaizi Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-11 #6 procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> edit1.text:='2003级1班';<br> edit2.Text:=copy(edit1.text,pos('级',edit1.text)+2,length(edit1.Text)-pos('级',edit1.text)-3)<br>end;
procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> edit1.text:='2003级1班';<br> edit2.Text:=copy(edit1.text,pos('级',edit1.text)+2,length(edit1.Text)-pos('级',edit1.text)-3)<br>end;
