Wie kann ich nach Files mit versch. Extensions suchen?

[aMuTeX]

Danke!

Und so gehts sogar ziemlich einfach:

Delphi-Quellcode:

if FindFirst(directory+'*.*', $23, search) = 0 then
begin
  repeat
    if Pos(UpperCase(ExtractFileExt(Search.Name)), UpperCase(Mask)) > 0 then
      Files.Add(directory + search.Name);// add the files to the list
  until FindNext(search) <> 0;
  FindClose(search);
end;