大富翁论坛-富翁笔记-delphi与正则表达式

保存评价游戏规则免费注册资料下载关于本站
问题分类编程问题非技术题富翁列表我的信息提出问题在线富翁富翁日历笔记列表我的笔记写作笔记全文检索《专家门诊》

/keylife/iblog_show.aspxid=13902

KeyLife富翁笔记

作者　: coolbaby
标题　: delphi与正则表达式
关键字:
分类　: 个人专区
密级　: 公开

(评分:★★★ , 回复: 5, 阅读: 5433) »»

TRegExpr是正则表达式在delphi中的一个很好的实现。
是一个单独的单元，使用时直接引用即可。还自带了几个sample。

对其中的SelfTest例子加了几行注释如下：
   { basic tests }

   r := TRegExpr.Create;

   r.Expression := '[A-Z]';
   r.Exec ('234578923457823659GHJK38');
   Check (0, 19, 1);
   //?在此处表示让*处于非贪婪模式
   r.Expression := '[A-Z]*?';
   r.Exec ('234578923457823659ARTZU38');
   Check (0, 1, 0);

   r.Expression := '[A-Z]+';
   r.Exec ('234578923457823659ARTZU38');
   Check (0, 19, 5);
   //和上面的+方式,功能一样
   r.Expression := '[A-Z][A-Z]*';
   r.Exec ('234578923457823659ARTZU38');
   Check (0, 19, 5);
   //?这里表示匹配[A-Z]0次或者一次
   r.Expression := '[A-Z][A-Z]?';
   r.Exec ('234578923457823659ARTZU38');
   Check (0, 19, 2);
   // \d代表数字,^代表非,总得来说就是一个或者多个非数字字符     
   r.Expression := '[^\d]+';
   r.Exec ('234578923457823659ARTZU38');
   Check (0, 19, 5);

2005-5-22 10:31:29

查看评语»»»