Dateinamen mit einem File Filter vergleichen

[Gollum]

Zitat von Codehunter:

Delphi-Quellcode:

      if MatchesMask(AFilename, SL[I]) then begin
        result:= TRUE;
        Exit;
      end;
    end;
  finally
    SL.Free;
  end;
end;

Die Routine erzeugt hier ein Speicherleck. Statt Exit dann schon eher ein Break oder Du musst die Stringlist an dieser Stelle separat freigeben.