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;