Delphi 正則表達式語法(5): 邊界

　// b 單詞邊界

var
　reg: TPerlRegEx;
begin
　reg := TPerlRegEx.Create(nil);
　reg.Subject := 'Delphi Delphi2007 MyDelphi';
　reg.RegEx　 := 'bDelphib'; //前後邊界
　reg.Replacement := '◆';
　reg.ReplaceAll;
　ShowMessage(reg.Subject); //返回: ◆ Delphi2007 MyDelphi
　FreeAndNil(reg);
end;

　　// b 單詞邊界: 左邊界

var
　reg: TPerlRegEx;
begin
　reg := TPerlRegEx.Create(nil);
　reg.Subject := 'Delphi Delphi2007 MyDelphi';
　reg.RegEx　 := 'bDelphi'; //左邊界
　reg.Replacement := '◆';
　reg.ReplaceAll;
　ShowMessage(reg.Subject); //返回: ◆ ◆2007 MyDelphi
　FreeAndNil(reg);
end;

　　// b 單詞邊界: 右邊界

var
　reg: TPerlRegEx;
begin
　reg := TPerlRegEx.Create(nil);
　reg.Subject := 'Delphi Delphi2007 MyDelphi';
　reg.RegEx　 := 'Delphib'; //右邊界
　reg.Replacement := '◆';
　reg.ReplaceAll;
　ShowMessage(reg.Subject); //返回: ◆ Delphi2007 My◆
　FreeAndNil(reg);
end;

　　// B 非單詞邊界

var
　reg: TPerlRegEx;
begin
　reg := TPerlRegEx.Create(nil);
　reg.Subject := 'Delphi MyDelphi2007 MyDelphi';
　reg.RegEx　 := 'BDelphiB'; //現在只有 MyDelphi2007 中的 Delphi 屬於非單詞邊界
　reg.Replacement := '◆';
　reg.ReplaceAll;
　ShowMessage(reg.Subject); //返回: Delphi My◆2007 MyDelphi
　FreeAndNil(reg);
end;

　　// ^ 行首

var
　reg: TPerlRegEx;
begin
　reg := TPerlRegEx.Create(nil);
　reg.Subject := 'Delphi Delphi2007 MyDelphi';
　reg.RegEx　 := '^Del'; //匹配在行首的 Del
　reg.Replacement := '◆';
　reg.ReplaceAll;
　ShowMessage(reg.Subject); //返回: ◆phi Delphi2007 MyDelphi
　FreeAndNil(reg);
end;

　　// A 也標記行首

var
　reg: TPerlRegEx;
begin
　reg := TPerlRegEx.Create(nil);
　reg.Subject := 'Delphi Delphi2007 MyDelphi';
　reg.RegEx　 := 'ADel'; //匹配在行首的 Del
　reg.Replacement := '◆';
　reg.ReplaceAll;
　ShowMessage(reg.Subject); //返回: ◆phi Delphi2007 MyDelphi
　FreeAndNil(reg);
end;

　　// $ 行尾

var
　reg: TPerlRegEx;
begin
　reg := TPerlRegEx.Create(nil);
　reg.Subject := 'Delphi Delphi2007 MyDelphi';
　reg.RegEx　 := 'phi$'; //匹配在行尾的 phi
　reg.Replacement := '◆';
　reg.ReplaceAll;
　ShowMessage(reg.Subject); //返回: Delphi Delphi2007 MyDel◆
　FreeAndNil(reg);
end;

　　// Z 也標記行尾

var
　reg: TPerlRegEx;
begin
　reg := TPerlRegEx.Create(nil);
　reg.Subject := 'Delphi Delphi2007 MyDelphi';
　reg.RegEx　 := 'phiZ'; //匹配在行尾的 phi
　reg.Replacement := '◆';
　reg.ReplaceAll;
　ShowMessage(reg.Subject); //返回: Delphi Delphi2007 MyDel◆
　FreeAndNil(reg);
end;

　　// 測試時, Z 不區分大小寫; A 區分