delphi使用正則表達式

implementation

{$R *.dfm}
  uses
  PerlRegEx; //uses 正則表達式單元


procedure TForm1.FormCreate(Sender: TObject);
var
  reg: TPerlRegEx;
  num: Integer; //用 num 來計數
begin
  reg := TPerlRegEx.Create();

  reg.Subject := 'CodeGear Delphi G2007 for Win32';
  reg.RegEx   := '[FG]\d{4}';

  num := 0;
  while reg.MatchAgain do  //MatchAgain 是下一個
  begin
    ShowMessage(reg.MatchedText); //將分別顯示: 2 0 0 7 3 2
    Inc(num);
  end;
    ShowMessage(IntToStr(num)); //6

  FreeAndNil(reg);
end;