delphi正则表达式验证操作.doc

一、工具选择在 Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选, 准备彻底而细致地研究它.官方网站: /delphi.html直接下载: /download/TPerlRegEx.zip二、安装方法:1、先把解压的 TPerlRegEx 文件夹放一个合适的地方, 我放在了 Delphi 的 Imports 目录中.2、目前必威体育精装版 For Win32 的版本是对 Delphi 2006 的, 2007 也能用. ???? 打开 PerlRegExD2006.dpk, 提示缺少资源文件, 没关系; ???? 在 Project Manager 窗口中的 PerlRegExD2006.bpl 上点击右键, 执行 Install;???? 这时在 Tool Palette 的列表中已经有了 TPerlRegEx, 在 JGsoft 组.3、Tools - Options - Environment Options - Delphi Options - Library-Win32 - Library path - ???? 添加路径: ...\Imports\TPerlRegEx4、可以使用了! 直接 uses PerlRegEx 或从 Tool Palette 添加都可以. ???? 如果不喜欢 Tool Palette 的添加方式可以省略第二步.三、使用方法PerlRegEx提供了TPerlRegEx类。主要用法是：RegEx : TPerlRegEx;....RegEx := TPerlRegEx;try?? RegEx.Subject := 要匹配的正文;?? RegEx.RegEx := 正则表达式;?? if RegEx.Match then ....finally?? RegEx.freeend;如果要多次匹配并做一些处理，可以:Matched : boolean;....RegEx.Match;while RegEx.FoundMatch dobegin?? ....?? 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中，子串个数在RegEx.SubExpressionCount中。如果正则式很复杂而且常用，可创建一个生存期相对长的TPerlRegEx实例．设置好RegEx属性后，使用.Study方法对正则表达式进行预处理．据帮助文档说，文档资料会大大提高效率．详情可参考文档。有一点文档上没有提到（又或者我看漏了），在第一次匹配之后，如果没有重新赋值subject，下一次匹配无论用Match或者MatchAgain，都是从上次的结束位置开始。所以如果要重新开始匹配，应先把RegEx.Start := 0;四、正则单元 程序代码 unit UnitRegEx;interfaceuses?? PerlRegEx;function CheckEmail(EmailAddr: string): Boolean;function CheckStrOrNumber(Str: string): Boolean;var?? PerlRegEx: TPerlRegEx;implementation//Email电子邮箱检测function CheckEmail(EmailAddr: string): Boolean;begin?? PerlRegEx := TPerlRegEx.Create(nil);?? PerlRegEx.Subject := EmailAddr;?? PerlRegEx.RegEx := \w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*;?? Result := PerlRegEx.Match;end;//字符、数字检测function CheckStrOrNumber(Str: string):