Lazarus正则表达式使用实例

cit_cn

来源：http://www.cit.cn/articles/blogs/2012/0904/7959.html

正则表达式在字符串处理中比较常见，在FreePascal中就内置了正则处理的单元，直接使用：

uses ... regexpr;

在方法中声明：

var
  RegexObj: TRegExpr;  

接下来我们来做一个全字符匹配，将匹配的内容输出来：

     RegexObj := TRegExpr.Create;
     RegexObj.Expression:='([\d]{8}), (gb2312|utf-8)';
     RegexObj.ModifierM := true;
     RegexObj.ModifierS := true;
     RegexObj.ModifierR := true;
     if RegexObj.Exec(body) then
     repeat
           ShowMessage('更新时间：' + RegexObj.Match[1] + ' 编码：'+RegexObj.Match[2]);
     until not RegexObj.ExecNext;            

这里ModifierM表示多行，其他几个参数可以查看regexpr源代码中的注释。

当然这里知识介绍了一个比较典型的用法，类似php中的preg_match，还有很多内容可以去官方的教程网站看看。

(责任编辑：CIT信息网)

arthur2012

怎么没有分组的方法？