Filemanager Fehler - Lösung gefunden?

[DarkItachi]

Hallöchen?

Ich benutze folgende Function um Dateien aufzulisten: (Siehe ScreenShot)

Delphi-Quellcode:

  if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr <> faDirectory) then
      begin
        dview:= Form2.DirFileView.Items.Add;
        dview.ImageIndex:= 1;
        dview.Caption:= SR.Name;
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;

ImageIndex (1) ist dieses Txt-Symbol.

Meine Frage:
Wie kann ich prüfen, ob SR.Attr faDirectory nicht enthält?
Wie ich vermute, sind diese falsch dargestellten Items(Ordner) mehrere Attribute enthalten.
Also faSysFile und faDirectory..

"SR.Attr <> faDirectory" ist ja schön und gut, aber was ist wenn "SR.Attr = faSysFile + faDirectory" ist?
Hoffentlich ist das verständlich! ^^

Ich bitte um Hilfe, thx

MfG

und gegebenenfalls "Gute Nacht"