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