Verzeichnis wählen und in Listbox ausgeben

Arne Danikowski · Beiträge: 194

Also ich weis ja, es ist ein leidiges Thema. Ich möchte über einen DirectoryEdit ein Verzeichnis auswählen und die gefundenen Dateien und Ordner
dieses Verzeichnis in einer Listbox anzeigen lassen.

folgendes habe ich bisher versucht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure Tbackupfrm.InDirChange(Sender: TObject);
var FindRec: TSearchRec;
begin
if FindFirst (indir.text + '*.*'+#0, faAnyFile, FindRec) = 0
then
    repeat
      if (FindRec.Name <> '.') and (FindRec.Name <> '..')
      then extraList.Clear;
      extralist.items.Add(FindRec.Name);
    until FindNext (FindRec) <> 0;
   FindClose (FindRec);

Das Ergebnis ist erstaunlich und nicht richtig.

Kann mit mal jemand den Wink mit dem Zaunpfahl geben?

dummzeuch · Verfasst: Di 30.10.07 18:40

Arne Danikowski hat folgendes geschrieben:

Also ich weis ja, es ist ein leidiges Thema. Ich möchte über einen DirectoryEdit ein Verzeichnis auswählen und die gefundenen Dateien und Ordner
dieses Verzeichnis in einer Listbox anzeigen lassen.

folgendes habe ich bisher versucht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure Tbackupfrm.InDirChange(Sender: TObject);
var FindRec: TSearchRec;
begin
if FindFirst (indir.text + '*.*'+#0, faAnyFile, FindRec) = 0
then
    repeat
      if (FindRec.Name <> '.') and (FindRec.Name <> '..')
      then extraList.Clear;
      extralist.items.Add(FindRec.Name);
    until FindNext (FindRec) <> 0;
   FindClose (FindRec);

Das Ergebnis ist erstaunlich und nicht richtig.

Kann mit mal jemand den Wink mit dem Zaunpfahl geben?

Was soll extralist.clear bewirken? Und wann soll es aufgerufen werden? Willst Du auch die Eintraege '.' und '..' zur Listbox hinzufuegen?

Also fuer mich sieht es so aus, als ob:
1. extralist.clear vor die erste If-Abfrage gehoert
2. extralist.items.add nur im Then-Fall aufgerufen werden soll.

Und wozu soll das +#0 gut sein?

twm

Arne Danikowski · Beiträge: 194

So ich habe das ganze mal abgeändert:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure Tbackupfrm.InDirChange(Sender: TObject);  
var FindRec: TSearchRec;  
begin  
extraList.Clear;
if FindFirst ('*.*', faAnyFile, FindRec) = 0  
then  
    repeat  
      if (FindRec.Name <> '')   
      then   
      extralist.items.Add(FindRec.Name);  
    until FindNext (FindRec) <> 0;  
   FindClose (FindRec);

Das funktioniert auch.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme