Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Ordner rekursiv durchsuchen bis zu maximaler Tiefe

    Delphi
    by sx2008, 27. Dez 2009
  Statt dem Parameter InDir:Boolean nimmst du einfach den Parameter Tiefe:integer.
  Jedesmal, wenn du rekursiv ein Verzeichnis hinabsteigst wird die Tiefe ums Eins verringert.
  // procedure TForm1.FileSearch(const PathName, FileName : string; const InDir : boolean); // alt
  procedure TForm1.FileSearch(const PathName, FileName : string; Tiefe:integer); // neu
  ...
  // If not InDir then Exit; // alt...