delphi 正则表达式的使用方法
本文写于2022-10-14,D版本10.3.3
引用单元:
uses
System.RegularExpressions
1、TRegEx.Match方法
Match()方法总是获取满足条件的第一个匹配,而不关心满足条件的匹配有多少个。
Match()方法都回一个Match对象,其中包含了匹配的各种细节.
Match()方法的取值方法
var
m:TMatch;
begin
m := TRegEx.Match('a1a2','\d');
showmessage(m.groups.item[0].value); //只能是0啊,因为它只取第一个匹配值.反过来,如果它一个都没有匹配到的话,连0都没了
end;
所以,一般地,当我们确定只有一个符合条件的匹配或只需要第一个符合条件的匹配时,可以使用Match()。
你可以使用TMatch的NextMatch方法获取下一个匹配的字符串:m:= m.NextMatch;
可以使用TMatch的Groups属性获取与分组的正则表达式匹配的字符串。
var match: TMatch; group: TGroup; begin match := TRegEx.Match('2012/5/14', '(\d+)/(\d+)/(\d)'); ShowMessage(IntToStr(match.Groups.Count)); //=> 4 for group in match.Groups do begin ShowMessage(Format('%s (%d, %d)', [group.Value, group.Index, group.Length])); end; (* 結果 2012/5/1 (1, 8) 2012 (1, 4) 5 (6, 1) 1 (8, 1) *)
2、TRegEx.IsMatch方法
isMatch()方法用于判断是否能匹配到符合条件的成员,返回一个Boolean值.
TRegEx.Match('aAA','\d'); //返回false;
TRegEx.Match('aAA','\w'); //返回true;
3、TRegEx.Matches方法获取与正则表达式匹配的所有字符串.
Matches()方法可以得到MathCollection对象的一个集合。这个集合类中包含每一次正则表达式匹配的Match对象。
TRegEx.Match的声明是:
M:TMatch;
而TRegEx.Matches声明的是:
MC:TMatchCollection;
一般,当我们需要获取所有符合条件的匹配结果时,可以使用Matches()。
实例1:
procedure TForm2.Button1Click(Sender: TObject);
var
mc: TMatchCollection;
pattern, str: string;
i: Integer;
begin
pattern := Edit2.Text; //正则规则
str := edit1.Text;
if TRegEx.IsMatch(str, pattern) then
begin
if CheckBox1.Checked then
mc := TRegEx.Matches (str, pattern,[roMultiLine]) //区分大小写
else
mc := TRegEx.Matches (str, pattern,[roIgnoreCase]); //默认忽略大小写,所以这里可以省略第三参数
Memo1.Clear;
for i := 0 to mc.Count - 1 do
begin
Memo1.Lines.Add(mc.Item[i].Value);
end;
end;
end;




实例2:
var match: TMatch; matches: TMatchCollection; begin matches := TRegEx.Matches('Delphi XE', '[A-Z]+'); ShowMessage(IntToStr(matches.Count)); match := matches.Item[0]; ShowMessage( Format('%s (%d, %d)', [match.Value, match.Index, match.Length])); //=> D (1, 1) match := matches.Item[1]; ShowMessage( Format('%s (%d, %d)', [match.Value, match.Index, match.Length])); //=> XE (8, 2) Matches方法支持in do。 var regex: TRegEx; match: TMatch; matches: TMatchCollection; begin regex := TRegEx.Create('[A-Z]+'); matches := regex.Matches('Delphi XE'); ShowMessage(IntToStr(matches.Count)); for match in matches do ShowMessage( Format('%s (%d, %d)', [match.Value, match.Index, match.Length]));
s := TRegEx.Replace('Delphi XE', '[A-Z]', '_'); //=> _elphi __
5.TRegEx.Split拆分方法 拆分字符串
var splits: TArray<string>; s: string; begin splits := TRegEx.Split('Delphi C++Builder/RadPHP', '[ /]'); for s in splits do Memo1.Lines.Add(s);
6.TRegEx.Escape转义方法转义 特殊字符
var s: string; begin s := TRegEx.Escape('C++'); ShowMessage(s); //=> C\+\+
验证正则表达式语法
如果在构造函数参数中指定了roCompiled,则将编译正则表达式。
如果正则表达式有问题,则引发异常。
try TRegEx.Create(Edit1.Text, [roCompiled]); except on E: Exception do ShowMessage(E.Message); end;
分类:
Delphi学习笔记
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· 清华大学推出第四讲使用 DeepSeek + DeepResearch 让科研像聊天一样简单!
· 实操Deepseek接入个人知识库
· CSnakes vs Python.NET:高效嵌入与灵活互通的跨语言方案对比
· Plotly.NET 一个为 .NET 打造的强大开源交互式图表库