Entwickler-Ecke
Dateizugriff - Alle Files aus einem Ordner in eine ListBox...
Leathl - Do 01.05.03 14:33
Titel: Alle Files aus einem Ordner in eine ListBox...
---
Christian S. - Do 01.05.03 14:41
Hi!
So kannst Du schon mal die Dateien hinzufügen:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.Button1Click(Sender: TObject);
VAR sr : TSearchRec;
begin
FindFirst('c:\temp\*.*',faAnyFile-faDirectory,sr);
ListBox1.Items.Add(sr.Name);
while FindNext(sr) = 0 do
ListBox1.Items.Add(sr.Name);
FindClose(sr);
end; |
Um das Verzeichnis auszuwählen, wird "SelectDirectory" Dir sehr nützlich sein.
MfG,
Peter
Delete - Do 01.05.03 14:51
Und nur einen Ordner auswählen kannst du mit SelectDirectory aus der Unit FileCtrl.
Leathl - Do 01.05.03 16:49
---
Christian S. - Do 01.05.03 16:51
Mir ist noch aufgefallen, dass Du prüfen solltest, ob FindFirst überhaupt ein Ergebnis geliefert hat, bevor Du es der ListBox hinzufügst und mit der while-Schleife weitermachst!
Anonymous - Fr 23.05.03 13:11
Hab da mal ne Frage zu FindFirst! Warum geht das nicht:
Delphi-Quelltext
1:
| r:=findfirst('c:\*.txt',faAnyFile,sr); |
hehe! Schon rausgefunden. Sry
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 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!