Liste alle Dateien von einem Verzeichnis in ein string-grid mit delphi
Ich arbeite mit Delphi 7 und ich möchte eine Liste aller Dateien in einem angegebenen Verzeichnis in ein string-grid (eine Datei pro Zeile und alle in 1 Spalte). Ich suchte über eine Stunde jetzt und finde keine Beispiele auf, wie dies zu tun, so dass jede Hilfe, die Sie bereitstellen können, wäre sehr geschätzt.
InformationsquelleAutor avue | 2012-07-15
Du musst angemeldet sein, um einen Kommentar abzugeben.
Diese füllt eine
TStrings
Nachkomme (eg.,TStringList
,TMemo.Lihes
, und so weiter), die mit allen Dateien in einem angegebenen Ordner:Verwenden Sie es wie diese füllen Sie Ihre
TStringGrid
(Grid
in den folgenden code - ich code Hinzugefügt, um die automatische Größe der Spalte basierend auf der Länge des längsten Dateinamens):Beachten Sie, dass dieser code benötigt den Pfad einschließen, um den umgekehrten Schrägstrich nach dem Namen des Ordners; Sie können es ändern, einfach, um automatisch fügen Sie es, wenn nötig, oder zu akzeptieren sowohl den Namen eines Ordners und einer Datei-Maske, um nur bestimmte Dateien.
Sie verpasste meinem edit. 🙂 Ändern Sie die
= faDirectory
zu<> faDirectory
.In der Tat hatte ich, und tausend Dank, jetzt funktioniert es einwandfrei 🙂
InformationsquelleAutor Ken White
Verwenden SysUtil.FindFirst/FindNext/FindClose, um Dateien
Legen Sie einfach die Zeichenfolge in die gewünschte Zeile/Spalte. Erhöhen "RowCount" Bedarf:
Zeilen Hinzufügen
Einfügen/Löschen von Zeilen
Lazarus String-Netze Referenz (gute Infos, aber signifikante Unterschiede zu Delphi)
InformationsquelleAutor paulsm4