Moin ueei.net,
da gäbe es, so auf Anhieb, zwei Ansätze:
- Lass die Schleife für alle übergebenen Endungen laufen
- Lies alle Dateien, und prüfe, ob deren Endung in der Maske vorkommt.
Auch wenn es üblich ist ein ; als Trennzeichen zu verwenden, würde ich das nicht nehmen, denn dies ist ein gültiges Zeichen in einem Dateinamen.
Nimm lieber eines der Zeichen, die nicht vorkommen dürfen (*,\,/,",<,>,?,|,
.
Optisch sticht besonders | heraus.
Für den zweiten Fall könnte man dann so testen:
if pos(AnsiUpperCase(ExtractFileExt(search.Name)+'|'),AnsiUpperCase(mask)) > 0 then ...
mask müsste dann so aufgebaut sein: