SearchRec.Attr weiter verarbeiten

[Die Muhkuh]

Hi,

:wall: ich steh mal wieder auf'em Schlauch.

Ich hab folgenden Code:

Delphi-Quellcode:

if FileExists(FDoc.FFilename) then
  begin
    lbPfad.Caption := 'Pfad: ' + FDoc.FFilename;
    if FindFirst(FDoc.FFilename, faAnyFile, SR) = 0 then
    begin
      lbFileSize.Caption := ConvertBytes(SR.Size);
      ShowMessage(IntToStr(SR.Attr)); // Das ist nur zum Test
    end;
  end;

Ich komme ja mit SR.Attr (SR ist ein TSearchRec) an die Dateiattribute dran. Z.B. kommt mal 32 raus. Was kann ich nun damit anfangen?

Ich hab 2 Checkboxen auf meiner Form. Einmal "Schreibgeschützt" und "Archiviert". Wie bekomme ich raus, welche Checkbox ich "checken" kann?

*MFG*

Manu :hi:

PS: Ich hoffe das kapiert einer.

[mirage228]

Hi,

das müsste so gehen:

Delphi-Quellcode:

Archiviert1.Checked := (SR.Attr and faArchive) = faArchive;
// und so mit allen Attributen verfahren

mfG
mirage228

[Die Muhkuh]

Hi,

muss noch was fragen.

Ich hab schon in der Delphi Hilfe geguckt. Ich habs auch mal irgendwo gesehen, aber ich finds irgendwie grad nicht.

Wo ist die Liste mit den ganzen fa... Dingern?

[mirage228]

Hi,

Im Menü von Delphi


Hilfe -> Index -> faArchive eingeben

mfG
mirage228

[Die Muhkuh]

Danke :duck: