Forum: Sonstige Fragen zu Delphi
Delphi
by Stillmatic,
5. Jun 2007
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!
Forum: Sonstige Fragen zu Delphi
Delphi
by Stillmatic,
5. Jun 2007
Den Schreibschutz entferne ich auch in einer extra Funktion!
(ist im Code nicht zu sehen)!
Forum: Sonstige Fragen zu Delphi
Delphi
by Stillmatic,
5. Jun 2007
AssignFile(Speicher,Dateiname);
if FileExists(Dateiname) then
Begin
{Wenn Schreibgeschützt --> dann Fragen und öffnen}
if UDateiEigenschaften.Schreibschutz then
Begin
System.FileMode := fmOpenRead;
Reset(Speicher);
end
else
Forum: Sonstige Fragen zu Delphi
Delphi
by Stillmatic,
5. Jun 2007
Gibt es eine möglichkeit eine Typisierte Datei im NurLesen Modus zu öffnen??
Habe nämlcih vor eine Schreibgeschützte Datei zu öffnen!
if UFileTools.Schreibschutz then
öffnenNurLesend
else
Reset(Speicher);