Zitat von
uschi:
Danke für die schnelle Antwort, allerdings wollte ich genau das vermeiden
Da kommst Du aber nicht drumrum. Hier mal ein einfacher Ansatz (direkt getippt, nicht getestet):
Delphi-Quellcode:
uses
Masks;
...
var
SR: TSearchRec;
Mask: TMask;
begin
Mask := TMask.Create('*.jpg');
try
if FindFirst('C:\Temp\*.*', faAnyFile, SR) = 0 then
try
repeat
if (SR.Attr and (faDirectory or faSymLink)) <> 0 then
Continue;
if not Mask.Matches(SR.Name) then
begin
// die Datei ist okay, mach was
end;
until FindNext(SR) <> 0;
finally
FindClose(SR);
end;
finally
Mask.Free;
end;
end;
...
...