怎样截取这个字符串取出想要的内容？

Question

原字符串－‘<td nowrap>机械原理</td>’
想得到－‘机械原理‘
谢谢！

Answer 1

Copy函数可以，
但原字符串好像是结构标记语言，所以Copy的话，可能比较烦。
有没有简单的方法。
关注

Answer 2

var i:integer;
    StrSub,Str:string;
begin
  首先用pos函数定位
  再用copy函数截取.
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  temp:string;
begin
  temp:='<td nowrap>机械原理</td>';
  i:=Pos('>', temp);
  Delete(temp, 1, i);
  i:=Pos('<', temp);
  Temp:=Copy(temp, 1, i-1);
  showMessage(temp);
end;