官方的正则表达式组件 RegularExpressions (3) : TMatchEvaluato
发布时间:2020-12-14 04:37:24 所属栏目:百科 来源:网络整理
导读:unit Unit1;interfaceuses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,RegularExpressions;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); private fun
unit Unit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,RegularExpressions; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); private function MyMatchEvaluator(const Match: TMatch): string; //TMatchEvaluator = function(const Match: TMatch): string of object; public end; var Form1: TForm1; implementation {$R *.dfm} const pattern = '[A-Z]+d+'; txt = 'AAA1 BBB2 AA11 BB22 A111 B222 AAAA'; procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Text := TRegEx.Replace(txt,pattern,MyMatchEvaluator); //aaa1 bbb2 aa11 bb22 a111 b222 AAAA end; function TForm1.MyMatchEvaluator(const Match: TMatch): string; begin Result := LowerCase(Match.Value); end; end. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
相关内容
- uboot移植之uboot/include/configs/mini2440.h
- JSONArrayBuilder:用于生成格式简单的json array字符串
- react-native – 如何选择运行我的本机应用程序的iPhone模型
- 使用Ajax方法实现Form表单的提交及注意事项
- SQLITE数据库 封装很好的类
- 每天一例flash cs3 action script游戏案例
- Xcode 4.1 GM不安装(必须退出iTunes)在狮子?
- ruby-on-rails – 跨AWS扩展应用程序的单点故障
- ruby-on-rails – Capybara:如何测试页面的样式表?
- EasyUI+Ajax+Json+一般处理程序实现数据的前台与后台的交互