Delphi Problem mit Speicherung- da original Datei schreibschutz hat

Thema durchsuchen

Ansicht

Themen-Optionen

Problem mit Speicherung- da original Datei schreibschutz hat

Ein Thema von Black07 · begonnen am 15. Jun 2007 · letzter Beitrag vom 15. Jun 2007

Vorheriger Beitrag

Nächster Beitrag

DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.667 Beiträge

Delphi 12 Athens

Re: Problem mit Speicherung- da original Datei schreibschutz

15. Jun 2007, 11:22

Hallo, 2 Dinge fallen mir auf:

Zitat von Black07:

if (FileGetAttr(squestverzeichnis4+'\'+squestdateiname4) and faReadOnly) >= 0

Das ergibt IMHO wahr, denn da kann nur 0 (ergibt wahr) oder faReadOnly (ergibt auch wahr) bei herauskommen.

Zitat von Black07:

FileSetAttr(squestverzeichnis4+'\'+squestdateiname4, FileGetAttr(squestverzeichnis4+'\'+squestdateiname4) xor faReadOnly);

Damit schaltest Du als Folgefehler das Attribut auf jeden Fall um. Was spricht dagegen, das so zu machen?
FileSetAttr(squestverzeichnis4+'\'+squestdateiname4,FileGetAttr(squestverzeichnis4+'\'+squestdateiname4) and not faReadOnly);

Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen