溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
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;
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
