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"
