title image


Smiley Re: Verzeichnisexplorer im TreeView?
Wie man einen Verzeichnisbaum in ein TTreeView einliest Die Funktion "Verzeichnisse_Einlesen" liest rekursiv alle Ordner eines Verzeichnisbaumes und optional auch alle Dateien als Baumstruktur in ein TTreeView ein: {Aufrufbeispiel:} TreeView1.Items.Clear; Verzeichnisse_Einlesen(TreeView1,'C:\',nil,false);procedure Verzeichnisse_Einlesen(Tree : TTreeView; Verzeichnis : String; Eintrag : TTreeNode; Mit_Dateien : Boolean);Var SearchRec : TSearchRec; EintragTemp : TTreeNode;begin Tree.Items.BeginUpdate; if Verzeichnis[length(Verzeichnis)]'\' then Verzeichnis:=Verzeichnis+'\'; if FindFirst(Verzeichnis+ '*.*', faDirectory, SearchRec)=0 then begin repeat if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] '.') then begin //Eintrag ist ein Verzeichnis if (SearchRec.Attr and faDirectory > 0) then //zum aktuellen Eintrag hinzufügen Eintrag := Tree.Items.AddChild(Eintrag, SearchRec.Name); //Eintrag merken EintragTemp := Eintrag.Parent; //auf Untereinträge prüfen Verzeichnisse_Einlesen(Tree, Verzeichnis + SearchRec.Name, Eintrag, Mit_Dateien); //Eintrag wiederholen Eintrag := EintragTemp; end else //Eintrag ist eine Datei if Mit_Dateien then if SearchRec.Name[1] '.' then Tree.Items.AddChild(Eintrag, SearchRec.Name); until FindNext(SearchRec)0; FindClose(SearchRec); end; Tree.Items.EndUpdate;end; {Michael Geisler}

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: