Delphi System.Masks.MatchesMask 简单的正则用法

本文整理自网络，侵删。

 
uses System.Masks;

procedure TForm1.Button1Click(Sender: TObject);
begin
if System.Masks.MatchesMask(Edit1.Text, '[a-z]') then
    ShowMessage('a z OK.')
  else
    ShowMessage('a z NO.');
end;
 

相关阅读 >>

Delphi map file

Delphi发送邮件

Delphi窗体自适应分辨率

Delphi 计算一个字符串在另一个字符串中出现的次数

Delphi检测用户超过5分钟没有操作键盘或鼠标

Delphi 连接dbf数据

Delphi 无边框窗体常见问题

Delphi xe10 对 json的解析应用

Delphi 虚拟键码对照表

Delphi 根据分割符只取最后的值

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

转载请注明出处：木庄网络博客 » Delphi System.Masks.MatchesMask 简单的正则用法