Main Menu

[Alter Mann]

Hi jonsen2.0.0.9

zum Glück ist dein Quellcode besser zu verstehen als das was du schreibst.
Auch wenn ein paar Schreibfehler durchgehen, so ein Kauderwelsch bestimmt nicht.

Zum Thema; Wenn du ein Verzeichnis nach mehreren Dateiextensionen durchsuchen willst,
würde ich diese in einer Stringlist zusammenfassen und auch als solche übergeben:

Delphi-Quellcode:

Procedure FindFiles (aPath : String; MaskList: TStrings; aRecursiv: Boolean; aResult: TStrings);
Var 
  FindRec: tSearchRec; 
Begin 
  If aPath[Length (aPath)] <> '\' Then aPath := aPath + '\'; 

  If FindFirst (aPath + '*.*', faAnyFile, FindRec) = 0 Then 
    Repeat 
      If (FindRec.Name <> '.') and (FindRec.Name <> '..') Then 
      begin   
        if MaskList.IndexOf(ExtractFileExt)aPath + FindRec.Name)) <> -1 then
                aResult.Add (aPath + FindRec.Name); 
      end
      else
      if aRecursive then FindFiles(aPath, MaskList, aRecusive, aResult);
    Until FindNext (FindRec) <> 0; 

  FindClose (FindRec); 
End;

Viele Grüße

PS Der Code ist frei Hand, also ungetestet!