Delphi-PRAXiS

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 14:09 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz