Delphi中TPerlRegEx类主要用法(2)

二 使用方法：

解压了PerlRegEx包后，如果不想注册控件，除了PerlRegEx.pas、CHelpers.pas和PCRE目录外，其他的东西可以建个隐藏目录搁置起来（没认真阅读用户协议，不知道能不能随便删。。。）。维持这两个文件与PCRE的目录结构不要变。使用时只需要把PerlRegEx.pas添加进项目，在单元中uses PerlRegEx就可以了。

PerlRegEx提供了TPerlRegEx类。主要用法是：

RegEx : TPerlRegEx;
....
RegEx := TPerlRegEx;
try
RegEx.Subject := '要匹配的正文';
RegEx.RegEx := '正则表达式';
if RegEx.Match then ....
finally
RegEx.free
end;

如果要多次匹配并做一些处理，可以:
Matched : boolean;
....
RegEx.Match;
while RegEx.FoundMatch do
begin
....
RegEx.MatchAgain;
end;

如果要替换匹配到的内容，可以
RegEx.Subject := '要匹配的正文';
RegEx.RegEx := '正则表达式';
RegEx.Replace := '替换的字符串'
if RegEx.Match then RegEx.ReplaceAll; //结果在RegEx.subject
或者 if RegEx.Match then Result := RegEx.Replacement;

匹配到的字符串放在RegEx.MatchedExpression中，长度在RegEx.MatchedExpressionLength中，上一次匹配的结束位置在RegEx.Stop中

匹配到的子串放在RegEx.SubExpressions[i]中，子串个数在RegEx.SubExpressionCount中。

如果正则式很复杂而且常用，可创建一个生存期相对长的TPerlRegEx实例．设置好RegEx属性后，使用.Study方法对正则表达式进行预处理．据帮助文档说，文档资料会大大提高效率．

详情可参考文档。有一点文档上没有提到（又或者我看漏了），在第一次匹配之后，如果没有重新赋值subject，下一次匹配无论用Match或者MatchAgain，都是从上次的结束位置开始。所以如果要重新开始匹配，应先把RegEx.Start := 0;

• ·Delphi中ListView基本用法大全
• ·Delphi中的FormatDateTime函数用法
• ·Delphi中的FormatFloat函数用法
• ·Delphi中关于MOVE和CopyMemory的用法区别