ReadOnly

[Stillmatic]

Zitat von DeddyH:

Wieso nicht so?

Delphi-Quellcode:

  AssignFile(Speicher,Dateiname);
  if FileExists(Dateiname) then
   Begin
     System.FileMode := 0;
     Reset(Speicher);
   end else
     Rewrite(Speicher);

So hab ich es doch im Prinzip, nur das ich zwischen dem then else Block noch Prüfe ob die Datei schreibgeschützt ist, und wenn der Schreibschutz dann noch besteht soll er mit FileMode 0 arbeiten!