TRegEx 正则表达式

最新推荐文章于 2021-09-08 15:09:05 发布

weixin_34126557

最新推荐文章于 2021-09-08 15:09:05 发布

阅读量291

点赞数

TRegEx
#include <System.RegularExpressions.hpp>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  const String bigString = "Look for a the strings in this strang of strungs.";
  const String littlestring = "(str)([iau]ng)";
  TRegEx *regex;
  TGroupCollection mygrps;
 
  regex = new TRegEx(littlestring);
  mycoll = regex->Matches(bigString);
  Edit1->Text = "Count: " + IntToStr(mycoll.Count);
  Memo1->Lines->Add("First Collection: ");
  for (int i=0; i < mycoll.Count; i++)
  {
    Memo1->Lines->Add("Match #" + IntToStr(i) + ": " + mycoll.Item[i].Value);
    Memo1->Lines->Add("Group: " + IntToStr(i));
    mygrps = mycoll.Item[i].Groups;
    for (int j=0; j < mygrps.Count; j++)
      Memo1->Lines->Add("Value: " + mygrps.Item[j].Value);
  };
}