delphi XE中将正则表达式TRegEx的使用

研究了如何在Delphi XE TRegEx中使用正则表达式。

RegularExpressions.TRegEx记录

TRegEx是一个开源PCRE库包装器。

使用并使用RegularExpressions单元（Delphi XE2之后的System.RegularExpressions单元）。

uses RegularExpressions;

由于TRegEx是记录类型，因此不需要Free。

IsMatch方法　输入字符串中是否有匹配项

使用类方法的示例

if TRegEx.IsMatch('Delphi', '[A-Z]+') then

ShowMessage('Match');

使用实例方法的示例

var

regex: TRegEx;

begin

regex := TRegEx.Create('[A-Z]+');

if regex.IsMatch('Delphi') then

ShowMessage('Match');

Matche方法　获取与正则表达式匹配的第一个字符串

Matche方法是TMatch记录返回。

使用类方法的示例

var

match: TMatch;

begin

match := TRegEx.Match('Delphi XE', '[A-Z]+');

ShowMessage(

Format('%s (%d, %d)',

[match.Value, match.Index, match.Length])); //=> D (1, 1)

使用实例方法的示例

var

regex: TRegEx;

match: TMatch;

begin

regex := TRegEx.Create('[A-Z]+');

match := regex.Match('Delphi XE');

ShowMessage(

Format('%s (%d, %d)',

[match.Value, match.Index, match.Length])); //=> D (1, 1)

您可以使用TMatch的NextMatch方法获取下一个匹配的字符串。

var

regex: TRegEx;

match: TMatch;

begin

regex := TRegEx.Create('[A-Z]+');

match := regex.Match('Delphi XE');

ShowMessage(

Format('%s (%d, %d)',

[match.Value, match.Index, match.Length])); //=> D (1, 1)

match := match.NextMatch;

ShowMessage(

Format('%s (%d, %d)',

[match.Value, match.Index, match.Length])); //=> XE (8, 2)

您可以检查它是否与TMatch的Success属性匹配。

var

regex: TRegEx;

match: TMatch;

begin

regex := TRegEx.Create('[A-Z]+');

match := regex.Match('Delphi XE');

while match.Success do

begin

ShowMessage(match.Value);

match := match.NextMatch();

end;

可以使用TMatch的Groups属性获取与分组的正则表达式匹配的字符串。

var

match: TMatch;

group: TGroup;

begin

match := TRegEx.Match('2012/5/14', '(\d+)/(\d+)/(\d)');

ShowMessage(IntToStr(match.Groups.Count)); //=> 4

for group in match.Groups do

begin

ShowMessage(Format('%s (%d, %d)',

[group.Value, group.Index, group.Length]));

end;

(* 結果

2012/5/1 (1, 8)

2012 (1, 4)

5 (6, 1)

1 (8, 1)

Matches方法　获取与正则表达式匹配的所有字符串

匹配方法是，TMatchCollection返回该记录。

var

match: TMatch;

matches: TMatchCollection;

begin

matches := TRegEx.Matches('Delphi XE', '[A-Z]+');

ShowMessage(IntToStr(matches.Count));

match := matches.Item[0];

ShowMessage(

Format('%s (%d, %d)',

[match.Value, match.Index, match.Length])); //=> D (1, 1)

match := matches.Item[1];

ShowMessage(

Format('%s (%d, %d)',

[match.Value, match.Index, match.Length])); //=> XE (8, 2)

Matches方法支持in do。

var

regex: TRegEx;

match: TMatch;

matches: TMatchCollection;

begin

regex := TRegEx.Create('[A-Z]+');

matches := regex.Matches('Delphi XE');

ShowMessage(IntToStr(matches.Count));

for match in matches do

ShowMessage(

Format('%s (%d, %d)',

[match.Value, match.Index, match.Length]));

Replace方法替换　与正则表达式匹配的字符串

//替换

s := TRegEx.Replace('Delphi XE', '[A-Z]', '_');

ShowMessage(s); //=> _elphi __

通过将函数作为参数传递，可以根据匹配的字符指定要替换的字符。

(* マッチした数値に1を加える *)

function TForm1.IncNum(const Match: TMatch): string;

begin

Result := IntToStr(StrToInt(Match.Value) + 1);

end;

//替换

var

s: UnicodeString;

begin

s := TRegEx.Replace('Delphi 2009', '\d+', IncNum);

ShowMessage(s); //=> Delphi 2010

拆分方法　拆分字符串

var

splits: TArray;

s: string;

begin

splits := TRegEx.Split('Delphi C++Builder/RadPHP', '[ /]');

for s in splits do

Memo1.Lines.Add(s);

转义方法转义　特殊字符

var

s: string;

begin

s := TRegEx.Escape('C++');

ShowMessage(s); //=> C\+\+

验证正则表达式语法

如果在构造函数参数中指定了roCompiled，则将编译正则表达式。

如果正则表达式有问题，则引发异常。

try

TRegEx.Create(Edit1.Text, [roCompiled]);

except on E: Exception do

ShowMessage(E.Message);

end;

推荐分享