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中使用android振动

Delphi 获取网络文件大小

Delphi 切换大小写的例子

Delphi cross socket的库

Delphi文件管理类函数

Delphi 获取系统内存状态

Delphi控件adsl拨号和断开

winapi 字符及字符串函数(12): lstrlen - 串长度

Delphi 获取listview1鼠标所在位置的行名称

Delphi formatdatetime 显示日期时间

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

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