您好,登錄后才能下訂單哦!
implementation
{$R *.dfm}
uses
PerlRegEx; //uses 正則表達(dá)式單元
procedure TForm1.FormCreate(Sender: TObject);
var
reg: TPerlRegEx;
num: Integer; //用 num 來計(jì)數(shù)
begin
reg := TPerlRegEx.Create();
reg.Subject := 'CodeGear Delphi G2007 for Win32';
reg.RegEx := '[FG]\d{4}';
num := 0;
while reg.MatchAgain do //MatchAgain 是下一個(gè)
begin
ShowMessage(reg.MatchedText); //將分別顯示: 2 0 0 7 3 2
Inc(num);
end;
ShowMessage(IntToStr(num)); //6
FreeAndNil(reg);
end;
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場,如果涉及侵權(quán)請(qǐng)聯(lián)系站長郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。