Delphi 可以使用通配符比较字符串吗？

我有一组文件：


001.txt

001a.txt

002.txt 

002a.txt

...


我正在尝试排除以a结尾的项目，例如001a.txt


System.Masks为此提供了方法。这里合适的函数是MatchesMask：






 if MatchesMask(sr.Name, '*a.*') then
联系电话：
020-00000000
联系电话：
020-00000000
联系电话：
020-12345678