Rekursive Dateisuche lässt Unterverzeichnisse aus

[Der schöne Günther]

Warum so kompliziert?

Delphi-Quellcode:

uses System.IOUtils;

procedure listFiles();
const
   searchPattern: String = '*4711*';
var
   fileName: String;
begin
   for fileName in TDirectory.GetFiles('x:\', searchPattern, TSearchOption.soAllDirectories) do
      WriteLn(fileName);
end;

[Sir Rufo]

Zitat von Der schöne Günther:

Warum so kompliziert?

Delphi-Quellcode:

procedure listFiles();
const
   searchPattern: String = '*4711*';
var
   fileName: String;
begin
   for fileName in TDirectory.GetFiles('x:\', searchPattern, TSearchOption.soAllDirectories) do
      WriteLn(fileName);
end;

Weil das ja jeder einfach so machen könnte