if (not TRegEx.IsMatch(Edit1.Text, '^[0-9]{11}')) or (length(Edit1.Text) <> 11) then // 11位數字,否則不合格 begin ShowMessage('請輸入正確的11位手機號碼'); exit; end 引用 System.RegularExpressions,