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

Question

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

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

然而，正如正式文件中所述，MatchesMask不区分大小写.

是否有使用通配符检测文件名的case-sensitive方法？(我使用的是Delphi 10.3.3 VCL)

Answer 1

没问题吧？

也许你能做到。将所有转换为大写。

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