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

设计界面

示例代码

procedure TForm1.btn1Click(Sender: TObject);
const
   // 长度限制
   REG_LENGTH = '^.{%d,%d}$';
begin
    if not TRegEx.IsMatch(edt1.Text, Format(REG_LENGTH, [1, 255])) then
   begin
    ShowMessage('内容不能为空且长度不能大于255');
    edt1.SetFocus;
    Exit;
   end;
end;