ich habe jetzt nicht ganz kapiert was du für ein problem hast, aber
wenn du "." und ".." weg haben willst, dann sollte dein code so aussehen:
Delphi-Quellcode:
procedure ListFileDir(Path: string);
var
SR: TSearchRec;
dview: TListItem;
begin
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then begin
//if SR.Name <> '.' then begin // Benutze ich, um die zwei Ordner wegzukriegen! (Screenshot) <--- falscher platz für die abfrage
repeat
if (SR.Name <> '.') and (SR.Name <> '..') then
if (sr.Attr and faDirectory = faDirectory) then
begin
dview:= Form2.DirFileView.Items.Add;
dview.ImageIndex:= 0;
dview.Caption:= SR.Name;
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
end;
vielleicht ist das dann ja das, was du wolltest!
