Delphi 正则表达式 与 TPerlRegEx.docVIP

在 Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选 直接下载: /download/TPerlRegEx.zip 安装方法: 1、先把解压的 TPerlRegEx 里面的文件和PCRE里面的文件统统放在 Delphi 的 Lib 目录中. 2、然后再Delphi中 Component--Install component---在unit file name中找到PerRegEx.pas(package file name就按照默认的dclusr.dpk即可)安装。再用同样的方法安装pcre.pas. ?? OK~!安装完毕，在组件条最后已经出现了JGSoft按钮，安装成功。 ( you can create a new package or add the component to an existing package. Simply add the files PerlRegEx.pas and pcre.pas to the package.) 计划的学习步骤: 1、正则语法; 2、TPerlRegEx 功能. //准备用这段简单的代码测试语法:usesPerlRegEx; //uses 正则表达式单元 procedure TForm1.FormCreate(Sender: TObject);varreg: TPerlRegEx; //声明正则表达式变量beginreg := TPerlRegEx.Create(nil); //建立 reg.Subject := sSsS;??? //这是要替换的源字符串reg.RegEx?? := s;?????? //这是表达式, 在这里是准备替换掉的子串reg.Replacement := ; //要替换成的新串reg.ReplaceAll;?????????? //执行全部替换 ShowMessage(reg.Subject); //返回替换结果: S◆S FreeAndNil(reg); //因为建立时属主给了 nil, 这里没有使用 reg.Freeend; Delphi 正则表达式语法(1): 关于大小写与中文??????????? //替换一般字符串??????????? var??????????? reg: TPerlRegEx;??????????? begin??????????? reg := TPerlRegEx.Create(nil);??????????? reg.Subject := 我爱DELPHI, 但Delphi不爱我!;??????????? reg.RegEx?? := Delphi;??????????? reg.Replacement := ;??????????? reg.ReplaceAll;??????????? ShowMessage(reg.Subject); //返回: 我爱DELPHI, 但不爱我!??????????? ??????????? FreeAndNil(reg);??????????? end;??????????? ??????????? //不区分大小写??????????? var??????????? reg: TPerlRegEx;??????????? begin??????????? reg := TPerlRegEx.Create(nil);??????????? reg.Subject := 我爱DELPHI, 但Delphi不爱我!;??????????? reg.RegEx?? := Delphi;??????????? reg.Replacement := ◆;??????????? reg.Options := [preCaseLess]; //不区分大小的设定, 默认是区分的????????????? reg.ReplaceAll;??????????? ShowMessage(reg.Subject); //返回: 我爱, 但不爱我!??????????? ??????????? FreeAndNil(reg);??????????? end;??????????? ??????????? //试试中文替换??????????? var??????????? reg: TPerlRegEx;??????????? begin??????????? reg := TPerlRegEx.Create(nil);??????????? reg.Subject := 我爱DELPHI, 但Delphi不爱我!;??????????? reg.RegEx?? := 我;???