Zitat von
litsa:
Wie wär's hiermit:
Delphi-Quellcode:
...
if UpperCase(ExtractFileExt(SR.Name))= '.MSK' then
List.Add(Directory + SR.Name);
...
Danke - so würds funktionieren, aber so richtig zufrieden bin ich nicht damit.
Denn für was gib ich denn dann bei FindFirst die Endung an?
FindFirst(Directory + Mask, faAnyFile - faDirectory, SR) = 0
mfg
Helmi 
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<