Entwickler-Ecke

Dateizugriff - Dateien und Unterordner auflisten


Frolo - Di 11.09.12 15:35
Titel: Dateien und Unterordner auflisten
Hey,

ich scheitere mal wieder am Suchen.. Ich benutze derzeit Delphi 2010 und bin mir zu 100% sicher, dass es eine Funktion gibt, die jeweils alle Dateien und Ordner auflistet (FindFirst(),FindNext() Alternative). Nur irgendwie bin ich zu blöd die Delphi Hilfe zu benutzen. Dort finde ich nur "DirectoryExists" usw. Könnt ihr mir erstmal bei den Funktionen helfen - wo finde ich sie, wie heißen sie. Und mir erklären, wie ich in der Dokumentation zu Recht komme? Google spuckt natürlich bei mir nur die "alten" Methoden aus...


Danke!


jaenicke - Di 11.09.12 15:40
Es gibt zumindest in XE die Unit IOUtils mit TDirectory.GetFiles. Ich vermute mal das gab es auch in Delphi 2010 schon und du meinst das.


Frolo - Di 11.09.12 18:56
Ja, die gibt es auch. Nur wie finde ich selbst diese Funktionen? Ich kann doch nicht jedes Mal nen neuen Thread aufmachen, weil ich irgendwelche neue Funktionen nicht finde o:

EDIT:// Außerdem listen GetFiles() alle Dateien in dem Format auf: C:/datei.txt. Kann man das direkt anpassen, um direkt "datei.txt" zu bekommen? Ohne die Ordnerbezeichnung?


bummi - Di 11.09.12 22:04

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
 
Procedure ExtractFileNames(f:TStringDynArray);
var
 i:Integer;
begin
    For i := Low(f)to High(f) do f[i] := ExtractFileName(f[i]);
end;

procedure TForm2.Button1Click(Sender: TObject);
var
 f:TStringDynArray;
 i:Integer;
begin
f:=TDirectory.GetFiles('C:\Temp');
ExtractFileNames(f);
For i := Low(f)to High(f) do Memo1.Lines.add(f[i]);
end;


Frolo - Di 11.09.12 22:25
Perfekt danke!


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!