alle dateien eines ordners ausgeben

[Steve]

Hi und herzlich willkommen in der DP!

Mit FindFirst usw. liegst Du hier vollkommen richtig:
function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer; Rückgabewert ist bei Erfolg 0, sonst Fehlercode
In Path gibst Du den Suchparameter an, in Deinem Fall [pfad]\*.*

In "Attr" gibst Du an, welche Dateien Du suchst (Attribute der Dateien vielmehr)

Code:

Konstante      Beschreibung
faReadOnly           Schreibgeschützte Datei
faHidden             Verborgene Datei
faSysFile               Systemdatei
faVolumeID           Laufwerks-ID
faDirectory          Verzeichnis
faArchive            Archivdatei
faAnyFile            Beliebige Datei

In Deinem Fall also faAnyFile

Um den Dateinamen zu erhalten, musst Du F.Name auswerten.
Nun hast Du die erste Datei erhalten. um die weiteren Dateien im Verzeichnis zu finden, ruf FindNext(F) auf und gehe mit F.Name analog vor

Nach der letzten Datei (Rückgabewert von findNext<>0) musst Du reservierten Speicher wieder freigeben, und zwar mit FindClose

Siehe auch OH

Schönen Gruß
Stephan