TRegExOption = ( roNone, /無 roIgnoreCase, /不區分大小寫 roMultiLine, /多行模式; 可使 和 $ 匹配每個行首或行尾 roExplicitCapture, /只捕獲指定了名稱或編號的子表達式 roCompiled, /預編譯表達式; 這在反復使用更有效率 roSingleLine, /單行模式; 使 . 也可匹配換行符 roIgnorePatternSpace /忽略注釋和未經轉義的空白);uses RegularExpressions;roIgnoreCaseprocedure TForm1.Button1Click(Sender: TObject);const pattern = A-Z+d+; txt = AAA1 bbb2 aa11 bb22 A111 B222 AAAA;var match: TMatch;begin Memo1.Clear; for match in TRegEx.Matches(txt, pattern, roIgnoreCase) do begin Memo1.Lines.Add(match.Value); end; Memo1.Lines.Add(-); for match in TRegEx.Matches(txt, pattern) do begin Memo1.Lines.Add(match.Value); end;end;*AAA1bbb2aa11bb22A111B222-AAA1A111B222*roMultiLineprocedure TForm1.Button2Click(Sender: TObject);const txt = Delphi Delphi Delphi#13#10Delphi Delphi Delphi;var rStr: string;begin Memo1.Clear; 行首 rStr := TRegEx.Replace(txt, Delphi, ., roMultiLine); Memo1.Lines.Add(rStr); Memo1.Lines.Add(-); rStr := TRegEx.Replace(txt, Delphi, .); Memo1.Lines.Add(rStr); Memo1.Lines.Add(-); 行尾 rStr := TRegEx.Replace(txt, Delphi$, ., roMultiLine); Memo1.Lines.Add(rStr); Memo1.Lines.Add(-); rStr := TRegEx.Replace(txt, Delphi$, .); Memo1.Lines.Add(rStr);end;*. Delphi Delphi. Delphi Delphi-. Delphi DelphiDelphi Delphi Delphi-Delphi Delphi .Delphi Delphi .-Delphi Delphi DelphiDelphi Delphi .*roExplicitCaptureprocedure TForm1.Button3Click(Sender: TObject);const pattern1 = (A-Z+)(d+); pattern2 = (?A-Z+)(d+); pattern3 = (A-Z+)(?d+); txt = AA11 BB22;var match: TMatch; group: TGroup;begin Memo1.Clear; for match in TRegEx.Matches(txt, pattern1, roExplicitCapture) do begin for group in match.Groups do begin Memo1.Lines.Add(group.Value); end; end; Memo1.Lines.Add(-); for match in TRegEx.Matches(txt, pattern1) do /此處把 pattern1 換做 pattern2 或 pattern3 均可 begin for group in match.Groups do begin Memo1.Lines.Add(group.Value); end; end; Memo1.Lines.Add(-); for match in TRegEx.Matches(txt, pattern2, roExplicitCapture) do begin for group in match.Groups do begin Memo1.Lines.Add(group.Value); end; end; Memo1.Lines.Add(-); for match in TRegEx.Matches(txt, pattern3, roExplicitCapture) do begin for group in match.Groups do begin Memo1.Lines.Add(group.Value); end; end;end;*AA11BB22-AA11AA11BB22BB22-AA11AABB22BB-AA1111BB2222*roCompiledprocedure TForm1.Button4Click(Sender: TObject);var reg: TRegEx;begin reg := TRegEx.Create(d+, roCompiled); Memo1.Text := reg.Replace(AA11 BB22, .); /AA. BB.end;roSingleLineprocedure TForm1.Button5Click(Sender: TObject);const pattern = A-Z1.1; txt = A B C D#13#10A B C D#13#10A B C D;var rStr: string;begin Memo1.Clear; rStr := TRegEx.Replace(txt, pattern, 11, roSingleLine); Memo1.Lines.Add(rStr); Memo1.Lines.Add(-); rStr := TRegEx.Replace(txt, pattern, 11); Memo1.Lines.Add(rStr);end;*1111111111111111111111D-111111D111111D111111D*roIgnorePatternSpaceprocedure TForm1.Button6Click(Sender: TObject);var rStr: string;begin Memo1.Clear; 忽略空白 rStr := TRegEx.Replace(ABC,A B C,AB C, AB C, ., roIgnorePatternSpace); Memo1.Lines.Add(rStr); /.,A B C,AB C rStr := TRegEx.Replace(ABC,A B C,AB C, AB C, .); Memo1.Lines.Add(rStr); /ABC,A B C,. Memo1.Lines.Add(-); 使用注釋 rStr := TRegEx.Replace(ABC123, ABC#*123, ., roIgnorePatternSpace); Memo1.Lines.Add(rStr); /.123 rStr := TRegEx.Replace(ABC123, ABC#*123, .); Memo1.Lines.Add(rStr); /.end;*.,A B C,AB CABC,A B C,.-.123.*選項集合procedure TForm1.Button7Click(Sender: TObject);const pattern =