Eigenschaften mehrere Dateien ändern.

[smart]

Hallo Alle!

Ich möchte in einer Schleife die Eigenschaften mehrere Dateien ändern. Dafür habe ich auf einem Formular eine Filelistbox, eine CheckBox und ein Button. Wenn ich auf dem Button klicke, sollen alle Dateien auf Schreibgeschützt gesetzt werden.

Wieso klappt dieser Code nicht?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Attributes, NewAttributes: Word;
  A:Integer;
begin
For A := 0 To FileListBox1.Items.Count -1 Do
begin
Attributes := FileGetAttr(FileListBox1.Items[A]);
NewAttributes := Attributes;
if CheckBox1.Checked = True then NewAttributes := NewAttributes or faReadOnly
      else NewAttributes := NewAttributes and not faReadOnly;
end;
end;

Viele Grüße
Heike

[Luckie]

"Klappt nicht" ist eine mehr als unzureichende Fehlerbeschreibung.

[Klaus01]

Hallo Heike,

was geht denn nicht?
Und wo weißt Du einem File die Atribute überhaupt zu?

Grüße
Klaus

[smart]

Zitat von Luckie:

"Klappt nicht" ist eine mehr als unzureichende Fehlerbeschreibung.

Hi,

es kommt keine Fehlermeldung. Der Code läuft aber die Eigenschaften werden nicht geändert.

Gruß
Heike

[Luckie]

Wie sollen sie auch? Du weißt der Datei ja auch nicht die neuen Dateattribute zu.

[smart]

Zitat von Klaus01:

Hallo Heike,

was geht denn nicht?
Und wo weißt Du einem File die Atribute überhaupt zu?

Hi Klaus,

hier

Delphi-Quellcode:

if NewAttributes <> Attributes then
        FileSetAttr(FileListBox1.Items[A], NewAttributes);

Ich sehe jetzt den Fehler. Ich habe diese Zeilen vergessen. Sorry.

Gruß
Heike

[Christian Seehase]

Moin Heike,

und so etwas

Zitat von smart:

if CheckBox1.Checked = True then

macht man aber auch nicht

Boolesche Werte sollte man nie auf Gleichheit prüfen, schon gar nicht auf Gleichheit mit true, da, im allgemeinen, unter true ein Wert <> 0 verstanden wird und false = 0.
Bei reinem Delphi-Code würde es zwar wohl nicht zu einem Fehler kommen, wenn man aber boolesche Rückgabewerte von API-Funktionen verwendet, kann das schiefgehen.

if CheckBox1.Checked then