TreeView und ListView

[Malte Koch]

So sieht meine Prozedur bis jetzt aus. Jedoch weis ich nicht genau wie ich denn jetzt den Namen in das Item packe.

Ihr wisst was ich meine??

Delphi-Quellcode:

procedure TForm2.HoleDateien(const Pfad: String);
var
 SR: TSearchRec;
  begin
    if FindFirst(Pfad + '\*.*', faAnyFile, SR) = 0 then
  repeat
    Application.ProcessMessages;
    if (SR.Attr OR faAnyfile = faAnyFile) AND (SR.Name[1] <> '.')
        AND (SR.Name[1] <> '_') then
    begin
         ListView1.Items.Add ;
         ListItem.Caption := (SR.Name);

        baum.ImageIndex := 1;
        baum.StateIndex := 2;
        HoleDateien(Pfad);
      end;
  until (FindNext(SR) <> 0);
  SysUtils.FindClose(SR);
  end;