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!