Dateisuch mit variablen Filter, aber wie?

**knolli**

hi!

ich habe ein kleines problem.
Ich möchte mir von meinem Programm alle Dateien mit ner bestimmten Dateiendung anzeigen lassen. Halt den endungen wie sie in den Filtern stehen.
Nun hab ich aber das problem, das ich nicht weiß wie ich das am besten anstelle. ich hab mir es wie foglt vorgestellt.

ich klicke auf die gewünschten filter und dann auf den gewünschten ordner. bei klick auf suche sollen mir dann die gefundenen Dateien angezeigt werden.
ich benutze übrigens diesen code

zusammenfalten · markieren

Delphi-Quellcode:

			procedure FindAllFiles(const FileList: tstrings;RootFolder: string; Maske: array of string; Recurse: Boolean = True);

var

  SR: TSearchRec;

  i : integer;

begin

  RootFolder := IncludeTrailingPathDelimiter(RootFolder);

  if Recurse then

    if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then

    try

      repeat

        if SR.Attr and faDirectory = faDirectory then

            // --> ein Verzeichnis wurde gefunden

            //   der Verzeichnisname steht in SR.Name

            //   der vollständige Verzeichnisname (inkl. darüberliegender Pfade) ist

            //       RootFolder + SR.Name

          if (SR.Name <> '.') and (SR.Name <> '..') then

            FindAllFiles(FileList, RootFolder + SR.Name, Maske, Recurse);

      until FindNext(SR) <> 0;

    finally

      FindClose(SR);

    end;

  i := 0;

  repeat

    begin

      if FindFirst(RootFolder + '*' + Maske[i], faAnyFile, SR) = 0 then

      try

        repeat

          if SR.Attr and faDirectory <> faDirectory then

          begin

            // --> eine Datei wurde gefunden

            //   der Dateiname steht in SR.Name

            //   der vollständige Dateiname (inkl. Pfadangabe) ist

            //       RootFolder + SR.Name

            FileList.Add(RootFolder + SR.Name);

          end;

        until FindNext(SR) <> 0;

      finally

        FindClose(SR);

      end;

      i := i + 1;

    end

  until

    i = high(maske) + 1;

end;

mein problem ist halt wie ich die maske(die sich ja immer ändern kann) mit übergebe.
Ich hab es bis jetz so versucht, das ich on klick auf eine checkbox die maske ändere.
aber das bringt mit nicht das gewünschte ergebnis.

vllt kann mir jemand helfen.

Dateisuch mit variablen Filter, aber wie?

Dateisuch mit variablen Filter, aber wie?

Forumregeln