implementation

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

procedure TForm1.FormCreate(Sender: TObject);
var
 reg: TPerlRegEx;
 num: Integer; //用 num 來計數(shù)
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;

成都創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司一直秉承“誠信做人，踏實(shí)做事”的原則，不欺瞞客戶，是我們最起碼的底線！ 以服務(wù)為基礎(chǔ)，以質(zhì)量求生存，以技術(shù)求發(fā)展，成交一個客戶多一個朋友！專注中小微企業(yè)官網(wǎng)定制，成都做網(wǎng)站、成都網(wǎng)站制作、成都外貿(mào)網(wǎng)站建設(shè)，塑造企業(yè)網(wǎng)絡(luò)形象打造互聯(lián)網(wǎng)企業(yè)效應(yīng)。

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)scvps.cn，海內(nèi)外云服務(wù)器15元起步，三天無理由+7*72小時售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價比高”等特點(diǎn)與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場景需求。

分享標(biāo)題：delphi使用正則表達(dá)式-創(chuàng)新互聯(lián)
鏈接URL：http://weahome.cn/article/ieipj.html