Rekursive Dateisuche lässt Unterverzeichnisse aus

[Der schöne Günther]

Zitat:

Zitat von Ykcim (Beitrag 1278083)

So klappt es jetzt:

Pascal-Leute sind ja immer wahre Performance-Freaks, deshalb noch ein paar Hinweise:

• Die Variable "i" wird nicht verwendet
• Der Parameter "Pfad" wird nicht geändert und kann mit "const" markiert werden
• Das ständige SetLength sorgt nicht nur dafür dass das Array ständig im Speicher kopiert und hin und her wandert, sondern ist auch total unverständlich zu lesen. Speicher dir doch einmal das was GetFiles(..) zurückgibt in einem StringArray und stecke das dann anschließend in dein Result.

Ich habe SetLength(..) noch nie mit zwei Parametern gesehen. Ich habe auch, glaube ich, noch nie mehrdimensionale Arrays benutzt. Deshalb kann es auch sein, dass ich die Intention dahinter nicht verstehe.



PS: So würde ich es schreiben

Delphi-Quellcode:

uses
  System.SysUtils,
  System.IOUtils,
  System.Types;

type TRows = array of array of string;

function listFiles(
   const Pfad: String;
   FileName: string
): TRows;
var
   fileNames:       TStringDynArray;
   fileNameIndex:   Integer;
begin
   filename := '*' + fileName + '*';
   fileNames := TDirectory.GetFiles(Pfad, FileName, TSearchOption.soAllDirectories);

   SetLength(Result, 2);
   SetLength( Result[0], Length(fileNames) );
   SetLength( Result[1], Length(fileNames) );

   for fileNameIndex := Low(fileNames) to High(fileNames) do
      Result[0, fileNameIndex] := fileNames[fileNameIndex];
end;

[DeddyH]

@Sir Rufo: ich hab mich nur an Threads wie diesen hier erinnert, deshalb traue ich dem Attributfilter nicht so recht über den Weg.

[Dejan Vu]

Zitat:

Zitat von Der schöne Günther (Beitrag 1278093)

..Das ständige SetLength sorgt nicht nur dafür dass das Array ständig im Speicher kopiert und hin und her wandert...

Nee. Mach dir keinen Kopp, das ist hochoptimiert. Aber der Rest ist 100% richtig ergo: Weg. Nur eine Performancebremse ist das nicht mehr, dank FastMem.