1、Delphi正则表达式学习

最新推荐文章于 2020-02-12 22:02:22 发布

和海风

最新推荐文章于 2020-02-12 22:02:22 发布

阅读量984

点赞数

分类专栏： Delphi/正则表达式文章标签： delphi 正则表达式 regex google blog 百度

本文链接：https://blog.csdn.net/hhf383530895/article/details/4557720

版权

Delphi/正则表达式专栏收录该内容

4 篇文章 0 订阅

订阅专栏

Delphi正则表达式学习，参考CSDN万一老师的BLOG、CSDN、网络资料以及带源码的TPerlRegEx，在此注明，以后不再说明，在些感谢Google老师和百度老师

安装：

下载地址：http://download.csdn.net/source/1668436

1、安装.dpk文件，在Libary中添加TPerlRegEx单元存放路径

2、运行程序前复制pcrelib.dll到C:/WINDOWS下

小试：

procedure TForm1.FormCreate(Sender: TObject); var reg: TPerlRegEx; //声明正则表达式变量 begin reg := TPerlRegEx.Create(nil); //建立 reg.Subject := 'GoodBoy is You!'; //这是要替换的源字符串 reg.RegEx := 'You'; //这是表达式, 在这里是准备替换掉的子串 reg.Replacement := 'Me'; //要替换成的新串 reg.ReplaceAll; //执行全部替换 ShowMessage(reg.Subject); //返回替换结果: GoodBoy is Me FreeAndNil(reg); //或 reg.Free end;

//License Version 1.1 //Delphi 7.0 procedure TForm1.btn1Click(Sender: TObject); var Reg : TPerlRegEx; begin Reg := TPerlRegEx.Create(nil); with Reg do begin Subject := '我爱DELPHI, 但Delphi不爱我--Delphi!'; //目标字符串 RegEx := 'Delphi'; //要替换的字符串 Replacement := '它'; //替换后的字符串 Options := [preCaseLess]; //不区分大小写 ReplaceAll; //全部替换 ShowMessage(Subject); FreeAndNil(Reg); end; //设置Options := [preCaseLess];中文也可以替换 end;