Delphi正则表达式起步HYPERLINK"JavaScript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(saveit=window.open('http://wz.csdn.net/storeit.aspx?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c收藏在Delphi中使用正则表达式,目前PerlRegEx应该是首选,准备彻底而细致地研究它.官方网站:HYPERLINK"http://www.regular-expressions.info/delphi.html"http://www.regular-expressions.info/delphi.html直接下载:HYPERLINK"http://www.regular-expressions.info/download/TPerlRegEx.zip"http://www.regular-expressions.info/download/TPerlRegEx.zip安装方法:1、先把解压的TPerlRegEx文件夹放一个合适的地方,我放在了Delphi的Imports目录中.2、目前最新ForWin32的版本是对Delphi2006的,2007也能用.打开PerlRegExD2006.dpk,提示缺少资源文件,没关系;在ProjectManager窗口中的PerlRegExD2006.bpl上点击右键,执行Install;这时在ToolPalette的列表中已经有了TPerlRegEx,在JGsoft组.3、Tools->Options->EnvironmentOptions->DelphiOptions->Library-Win32->Librarypath->添加路径:...\Imports\TPerlRegEx4、可以使用了!直接usesPerlRegEx或从ToolPalette添加都可以.如果不喜欢ToolPalette的添加方式可以省略第二步.计划的学习步骤:1、正则语法;2、TPerlRegEx功能.--------------------------------------------------------------------------------//准备用这段简单的代码测试语法:usesPerlRegEx;//uses正则表达式单元procedureTForm1.FormCreate(Sender:TObject);varreg:TPerlRegEx;//声明正则表达式变量beginreg:=TPerlRegEx.Create(nil);//建立reg.Subject:='sSsS';//这是要替换的源字符串reg.RegEx:='s';//这是表达式,在这里是准备替换掉的子串reg.Replacement:='◆';//要替换成的新串reg.ReplaceAll;//执行全部替换ShowMessage(reg.Subject);//返回替换结果:◆S◆SFreeAndNil(reg);//因为建立时属主给了nil,这里没有使用reg.Freeend;Delphi正则表达式语法(1):关于大小写与中文//替换一般字符串varreg:TPerlRegEx;beginreg:=TPerlRegEx.Create(nil);reg.Subject:='我爱DELPHI,但Delphi不爱我!';reg.RegEx:='Delphi';reg.Replacement:='◆';reg.ReplaceAll;ShowMessage(reg.Subject);//返回:我爱DELPHI,但◆不爱我!FreeAndNil(reg);end;--------------------------------------------------------------------------------//不区分大小写varreg:TPerlRegEx;beginreg:=TPerlRegEx.Create(nil);reg.Subject:='我爱DELPHI,但Delphi不爱我!';reg.RegEx:='Delphi';reg.Replacement:='◆';reg.Options:=[preCaseLess];//不区分大小的设定,默认是区分的reg.ReplaceAll;ShowMessage(reg.Subj