Moin Helmi,
Zitat von
Helmi:
So brauch ich mir die Endung nicht speichern.
stimmt, aber so musst Du bei jeder Datei zweimal UpperCase aufrufen, auch wenn das bei den Datenmengen um die es hier geht keinen spürbaren Einfluss auf die Performance haben wird.
Wenn übrigens so
pos(UpperCase(ExtractFileExt(sr.Name)),ext) > 0
kann die Maske auch mehrere Endungen enthalten (z.B. '.txt.lst'), wenn dann auch nicht mit Wildcards