Delphi-PRAXiS - Delphi Alle Dateien im Ordner in eine Datei schreiben

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Alle Dateien im Ordner in eine Datei schreiben (https://www.delphipraxis.net/37762-alle-dateien-im-ordner-eine-datei-schreiben.html)

Äfan	9. Jan 2005 22:44

Alle Dateien im Ordner in eine Datei schreiben

Hi,

Ich habe z.b. einen Ordner mit ca. 1000 Textdateien. Ich will von allen Dateien in einem Ordner die Dateinamen (ohne dateiendung) in eine Memo einfügen. Also alle Dateinamen auflisten. Wie geht das ?

MFG

jensw_2000

9. Jan 2005 23:03

Re: Alle Dateien im Ordner in eine Datei schreiben

Suche mal im Forum nach FindFirst, FindNext

Die Dateinamen kannst du so 'beschneiden'

Dateiname:=Stringreplace(Extractfilename(Searchrec .Filename,ExtractfileExt(Searchrec.Filename),'');

:hi:

Christian Seehase

10. Jan 2005 11:54

Re: Alle Dateien im Ordner in eine Datei schreiben

Moin Äfan,

Delphi-Quellcode:

Dateiname := ChangeFileExt(SearchRec.Name,'');

Alle Zeitangaben in WEZ +1. Es ist jetzt 21:40 Uhr.