TPerlRegEx 正则 取子匹配 如何写~!

Question

//TPerlRegEx 正则var
  txt:array of string;
  a:TPerlregex;
  i:integer;begin
   i:=0;
   a:=TPerlRegEx.Create(nil);
   a.RegEx:='<.*?>';
   a.Subject:='<问世间>，<情为何物>，<直叫人生死相许>';
   if a.Match then begin
     repeat
      // ShowMessage(a.MatchedExpression);
       SetLength(txt,i+1);
       txt[i]:=a.matchedexpression;
       ShowMessage(txt[i]); //返回 <问世间> 匹配
       i:=i+1;
     until not a.MatchAgain;
   end;
   txt:=nil;//!!怎么取子表达式呀...我要取 '问世间' 正则达人来帮帮小弟..

Answer 1

汗，你上次说清楚要取什么就好了。正则改成：a.RegEx:='<(.*?)>';然后改回从SubExpression里面取