TreeView und ListView

[Malte Koch]

Hier ist die Prozedur die die Verzeichnisse ausliest. Jetzt ist die Frage, ob ich hier auch die Dateien schon suche oder ob ich dafür ne eigene Prozedur schreibe, die nur beim Klick auf den ausgegebenen Ordner ausgeführt wird.

Delphi-Quellcode:

procedure TForm2.HoleVerzeichnisse(const Pfad: String;  var Tree: TTreeView;var ListView: TListView; Start: TTreeNode);
var
 SR: TSearchRec;

  begin
    if FindFirst(Pfad + '\*.*', faAnyFile, SR) = 0 then
  repeat
    Application.ProcessMessages;
    if (SR.Attr AND faDirectory = faDirectory) AND (SR.Name[1] <> '.')
        AND (SR.Name[1] <> '_') then
    begin
        baum := Tree.Items.Addchild(Start, SR.Name);
        baum.ImageIndex := 1;
        baum.StateIndex := 2;
        HoleVerzeichnisse(Pfad + '\' + SR.Name, Tree, ListView, Baum);
      end;
  until (FindNext(SR) <> 0);
  SysUtils.FindClose(SR);
  end;