Delphi中正則表達式語法(2) 或者與重復

// | 號的使用, | 是或者的意思

var
　 reg: TPerlRegEx;
begin
　 reg := TPerlRegEx.Create(nil);
　 reg.Subject := 'CodeGear Delphi 2007';
　 reg.RegEx　 := 'e|Delphi|0'; //使用了 | 記號
　 reg.Replacement := '◆';
　 reg.ReplaceAll;
　 ShowMessage(reg.Subject); //返回: Cod◆G◆ar ◆ 2◆◆7
　 FreeAndNil(reg);
end;

// + 的使用, + 是重復 1 個或多個

var
　 reg: TPerlRegEx;
begin
　 reg := TPerlRegEx.Create(nil);
　 reg.Subject := 'a aa aaa aaaa ab abb abbba a呀a';
　 reg.RegEx　 := 'ab+'; //使用了 + 記號, 這裡是允許 a 後面有 1 個或 多個 b
　 reg.Replacement := '◆';
　 reg.ReplaceAll;
　 ShowMessage(reg.Subject); //返回: a aa aaa aaaa ◆ ◆ ◆a a呀a
　 FreeAndNil(reg);
end;

// * 的使用, * 是重復 0 個或多個

var
　 reg: TPerlRegEx;
begin
　 reg := TPerlRegEx.Create(nil);
　 reg.Subject := 'a aa aaa aaaa ab abb abbba a呀a';
　 reg.RegEx　 := 'ab*'; //使用了 * 記號, 這裡是允許 a 後面有多個或者 沒有 b
　 reg.Replacement := '◆';
　 reg.ReplaceAll;
　 ShowMessage(reg.Subject); //返回: ◆ ◆◆ ◆◆◆ ◆◆◆◆ ◆ ◆ ◆ ◆ ◆呀◆
　 FreeAndNil(reg);
end;

// ? 的使用, ? 是重復 0 個或 1 個

var
　 reg: TPerlRegEx;
begin
　 reg := TPerlRegEx.Create(nil);
　 reg.Subject := 'a aa aaa aaaa ab abb abbba a呀a';
　 reg.RegEx　 := 'a?'; //使用了 ? 記號
　 reg.Replacement := '◆';
　 reg.ReplaceAll;
　 ShowMessage(reg.Subject); //返回: ◆ ◆◆ ◆◆◆ ◆◆◆◆ ◆b ◆bb ◆bbb◆ ◆呀◆
　 FreeAndNil(reg);
end;

//大括號的使用<1>, 指定重復數

var
　 reg: TPerlRegEx;
begin
　 reg := TPerlRegEx.Create(nil);
　 reg.Subject := 'a aa aaa aaaa ab abb abbba a呀a';
　 reg.RegEx　 := 'a{3}'; //這裡指定重復 3 次
　 reg.Replacement := '◆';
　 reg.ReplaceAll;
　 ShowMessage(reg.Subject); //返回: a aa ◆ ◆a ab abb abbba a呀 a
　 FreeAndNil(reg);
end;

//大括號的使用<2>

var
　 reg: TPerlRegEx;
begin
　 reg := TPerlRegEx.Create(nil);
　 reg.Subject := 'a aa aaa aaaa ab abb abbba a呀a';
　 reg.RegEx　 := 'a{2,4}'; //這裡指定重復 2-4 次
　 reg.Replacement := '◆';
　 reg.ReplaceAll;
　 ShowMessage(reg.Subject); //返回: a ◆ ◆ ◆ ab abb abbba a呀a
　 FreeAndNil(reg);
end;

//大括號的使用<3>

var
　 reg: TPerlRegEx;
begin
　 reg := TPerlRegEx.Create(nil);
　 reg.Subject := 'a aa aaa aaaa ab abb abbba a呀a';
　 reg.RegEx　 := 'a{1,}'; //n 個或多個, 這裡是 1 個或多個
　 reg.Replacement := '◆';
　 reg.ReplaceAll;
　 ShowMessage(reg.Subject); //返回: ◆ ◆ ◆ ◆ ◆b ◆bb ◆bbb◆ ◆ 呀◆
　 FreeAndNil(reg);
end;

//上面這個 {1,} 和 + 是等效的;

//還有 {0,1} 與 ? 是等效的;

//{0,} 和 * 是等效的