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制作移动文字、图片

Delphi中生成控件的两种方法

Delphi combobox的属性和事件、及几个鼠标事件的触发

Delphi中实现dll文件自动注册

Delphi 高亮选中memo某一行

Delphi jpg文件合并器代码

Delphi 以低用户权限启动一个进程.比如vista或者win7中的ie

Delphi dll 字符串传递例子

Delphi 使用管道进程间通讯

Delphi fdquery1查询，有无返回集

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

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