DateiAtribute lesen

[Snoop007]

Hallöle,
ich lese mit FindFirst dateien ein,
mit <variable>.attr möchte ich nun erfahren, welche attribute die datei hat.

wenn eine datei mehr als ein attribut hat, erhalte ich keinen wert ?!

mein code

Delphi-Quellcode:

    if datei.Attr in [faHidden] then
    begin
      m := m + 'Versteckt' + ' ';
      datei.Attr := datei.Attr - faHidden;
    end;

    if datei.Attr in [faArchive] then
    begin
      m := m +'Archiv' + ' ';
      datei.Attr := datei.Attr - faArchive;
    end;

[sakura]

Einfach so ändern:

Delphi-Quellcode:

    if datei.Attr and faHidden <> 0 then
    begin
      m := m + 'Versteckt' + ' ';
      datei.Attr := datei.Attr - faHidden;
    end;

    if datei.Attr and faArchive <> 0 then
    begin
      m := m +'Archiv' + ' ';
      datei.Attr := datei.Attr - faArchive;
    end;

...:cat:...

[Snoop007]

danke :D

[Christian Seehase]

Moin sakura,

da attr ein integer ist, der logisch verknüpfte Werte enthält halte ich es für sinnvoller diese auch mit logischen Operatoren zu löschen.

Delphi-Quellcode:

datei.Attr := datei.Attr and not faHidden;

[EDIT]
Das spielt zwar in diesem konkreten Fall keine Rolle, könnte aber bei anderen Wertkombinationen die auf diese Weise gespeichert werden wichtig sein.
[/EDIT]