Status von FindAllFiles (Suche beendet?)

[DeddyH]

Das ist eben das Problem bei Rekursion. Man müsste sich quasi einen "Ebenenzähler" einbauen, um festzustellen, wann man wieder im ursprünglichen Verzeichnis angelangt ist.

[Reinhardtinho]

Hi,

ich hab die Prozedur FindAllFiles von Matze aus der Code-Library.
Die Prozedur hat soweit immer funktioniert.

zu 2.) da vermute ich mal, das liegt daran, dass cFileName von eine Typ Array of Char oder so ist (so sieht es jedenfalls beim debuggen aus). Ist, wie gesagt aus der Code-Library.

zu 3.)

hier:

Zitat:

Delphi-Quellcode:

  if AnsiLastChar(RootFolder)^ <> '\' then
    RootFolder := RootFolder + '\';

MFG
Lorenz

[Muetze1]

Zitat von DeddyH:

Das ist eben das Problem bei Rekursion. Man müsste sich quasi einen "Ebenenzähler" einbauen, um festzustellen, wann man wieder im ursprünglichen Verzeichnis angelangt ist.

Wieso sollte man? Zum einen ist ein Ebenenzähler nicht eindeutig, da man die "zweite Ebene" in vielen unterschiedlichen Ordnern der ersten Ebene findet. Somit nicht nutzbar.

Zum anderen: Warum muss man einen Ebenenzähler implementieren? Durch die Rekursion stehen doch alle (von Anfang an) aufgerufenen Funktionen immernoch an der Stelle des Aufrufs, bis diese zurückkehren. Also: Wozu bräuchte man einen Ebenenzähler?

/EDIT:

Jo, stimmt. Mein 2. und 3. Punkt vom vorherigen Beitrag haben sich erledigt.

[DeddyH]

Wenn die Funktion das erste Verzeichnis "bis unten" abgearbeitet hat, wie steht dann FFinished?

[Reinhardtinho]

Hi,

Das Problem scheint gelöst.

Hab den Code ein bisschen umgestellt und frage jetzt nur noch FCancelled ab, bei dem rekursiven Aufruf.
Wenn der Benutzer Abbrechen drückt, wird noch der aktuelle Ordner fertig durchsucht und dann die Prozedur beendet.

Delphi-Quellcode:

procedure TForm_Main.FindAllFiles(RootFolder: String; Mask: String = '*.*'; Recurse: Boolean = true);
var
  wfd   : TWin32FindData;
  hFile : THandle;
begin
  if (AnsiLastChar(RootFolder)^ <> '\') then
    RootFolder := RootFolder + '\';

  if Recurse and not FCancelled then
  begin
    hFile := FindFirstFile(PChar(RootFolder + '*.*'), wfd);

    try

      if (hFile <> INVALID_HANDLE_VALUE) and not FCancelled then
      begin
        repeat
          if (wfd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = FILE_ATTRIBUTE_DIRECTORY) then
          if (String(wfd.cFileName) <> '.') and (String(wfd.cFileName) <> '..') then
            FindAllFiles(RootFolder + wfd.cFileName, Mask, Recurse);
        until FindNextFile(hFile, wfd) = False;
      end; (* of if *)
    finally
      Windows.FindClose(hFile);
    end;
  end; (* of if *)

  hFile := FindFirstFile(PChar(RootFolder + '*.*'), wfd);

  try
    if (hFile <> INVALID_HANDLE_VALUE) and not FCancelled then
    begin
      repeat
        if (wfd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <> FILE_ATTRIBUTE_DIRECTORY) then
        begin
          //Bearbeitung
          if (LowerCase(ExtractFileExt(wfd.cFileName)) = Copy(Mask, 2, Length(Mask) - 1)) then
            AddFileInfo(RootFolder + wfd.cFileName);

          Application.ProcessMessages;
        end; (* of if *)
      until FindNextFile(hFile, wfd) = False;
    end; (* of if *)
  finally
    Windows.FindClose(hFile);
  end;
end;

Vielen Dank an alle!

MFG
Lorenz