delphi 正则匹配字符串:长度限制

delphi 正则匹配字符串:长度限制

设计界面

示例代码

  1. procedure TForm1.btn1Click(Sender: TObject);
  2. const
  3.   // 长度限制
  4.   REG_LENGTH = '^.{%d,%d}$';
  5. begin
  6.     if not TRegEx.IsMatch(edt1.Text, Format(REG_LENGTH, [1, 255])) then
  7.   begin
  8.     ShowMessage('内容不能为空且长度不能大于255');
  9.     edt1.SetFocus;
  10.     Exit;
  11.   end;
  12. end;
联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678