Shulou(Shulou.com)06/03 Report--

Implementation

{$R * .dfm}

Uses

PerlRegEx; / / uses regular expression unit

Procedure TForm1.FormCreate (Sender: TObject)

Var

Reg: TPerlRegEx

Num: Integer; / / count with num

Begin

Reg: = TPerlRegEx.Create ()

Reg.Subject: = 'CodeGear Delphi G2007 for Win32'

Reg.RegEx: ='[FG]\ d {4}'

Num: = 0

While reg.MatchAgain do / / MatchAgain is next

Begin

ShowMessage (reg.MatchedText); / / will be displayed respectively: 2000 7 3 2

Inc (num)

End

ShowMessage (IntToStr (num)) / / 6

FreeAndNil (reg)

End

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.