delphi 正则判断是否包含数字

本文整理自网络，侵删。

 
uses RegularExpressions;

procedure TForm4.Button1Click(Sender: TObject);
const
  pattern = '.*\d+.*';
var
  match: TMatch;
begin
  if TRegEx.IsMatch(Edit1.Text, pattern) then
    Memo1.Lines.Add('包含数字')
  else
    Memo1.Lines.Add('不包含数字');
end;
 

相关阅读 >>

Delphi嵌入循环汇编

Delphi 将字型样式转成字串

Delphi 官方 processmessages 用法代码例子

Delphi 破解access密码

Delphi dxcameracontrol控件(拍照)

Delphi开发linux的动态库

Delphi 10.3 处理csv tstreamreader 自带split用法

Delphi 判断目录是否可写

Delphi xe5 中tmemo控件的应用――for android

Delphi app如何禁掉安卓锁屏

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 正则判断是否包含数字