手机号码验证

复制代码 
  if (not TRegEx.IsMatch(Edit1.Text, '^[0-9]{11}')) or (length(Edit1.Text) <> 11) then // 11位数字，否则不合格
  begin
    ShowMessage('请输入正确的11位手机号码');
    exit;
  end


引用  System.RegularExpressions,
复制代码
 
转自https://www.cnblogs.com/Thenext/p/13752897.html
posted @ 2024-08-15 18:16  沧江魅影  阅读(26)  评论(0)  编辑  收藏  举报