有没有字符串模模糊糊匹配函数

有没有字符串模糊匹配函数？
如 fun('123.txt', '*.txt') = true

不考虑正则，不知有无现成的函数
[解决办法]
pos函数

if pos('.txt', '123.txt') > 0 then

[解决办法]
判断文件名后缀是不是txt？？？

if ExtractFileExt('123.txt') = '.txt' then
[解决办法]
TMask,在masks.pas，delphi自带的