Stringvergleich mit Wildcards

[ringli]

Ich verwende im Moment folgende Lösung:

Delphi-Quellcode:

uses
  ShlwAPI;

function StrMatchesMask(pszFile, pszSpec : WideString) : Boolean;
begin
  Result := PathMatchSpecW(PWideChar(pszFile), PWideChar(pszSpec));
end;