delphi - Delphi 中区分大小写的 MatchesMask 替代方案

Question

我使用下面的代码来检测所需的文件：

uses Masks;
 
begin
  if MatchesMask(MyFilename, '*.Exe') then
  begin
    // Do Something
  end;
end;

但是，正如官方文档中所述，MatchesMask 是不区分大小写的。

是否有任何区分大小写的方法来使用通配符检测文件名？（我使用的是 Delphi 10.3.3 VCL）

标签： delphidelphi-10.3-rio

Answer 1

没关系 ？

也许你可以做到这一点。全部转换为大写。

uses Masks;
 
begin
  if MatchesMask(Upper(MyFilename)), Upper('*.Exe')) then
  begin
    // Do Something
  end;
end;