AW: Rekursive Dateisuche lässt Unterverzeichnisse aus
Zitat:
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; |
AW: Rekursive Dateisuche lässt Unterverzeichnisse aus
@Sir Rufo: ich hab mich nur an Threads wie diesen hier erinnert, deshalb traue ich dem Attributfilter nicht so recht über den Weg.
|
AW: Rekursive Dateisuche lässt Unterverzeichnisse aus
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:42 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz