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 rtf文件转txt函数

Delphi 如何使用通配符删除文件

Delphi实现webservice带身份认证的数据传输

Delphi win10下message无法接收的问题

Delphi显示jpg、png、gif图片

Delphi mac欺骗

Delphi获取 斐波那契数列　的函数

Delphi 比较两个日期相差天数

Delphi7 中tstringlist的delimiter delimitedtext有bug，字符串分割有问题

Delphi xe8在firemonkey tlistbox中显示图像

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

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