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 firedac 下的 sqlite [11] - 关于批量提交 sql 命令的测试

用Delphi加密access文件头

Delphi mscomm简单的中间pc串口数据中转

Delphi10.3 创建一条json数据

Delphi datasettojson

Delphi最简单的多线程网页采集

Delphi求数组最大\最小值

Delphi 网上获取北京时间取字符串与字符串中间的字符

Delphi webservices传文件

Delphi二值图像投影算法

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

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