Abfrage: Kann Datei gespeichert werden?

[Luckie]

Nun ja, es ist wie blind über die Ampel zu fahren, um rauszufinden, ob rot ist und wenn es kracht dann war es rot. Aber ich würde mir nicht so viel Mühe machen. Ich würde einfach den Rückgabewert der Methode SaveToFile oder wie auch immer du abspeicherst auswerten und eine entsprechende Fehlermeldung ausgeben:

Delphi-Quellcode:

AssigneFile(F, 'C:\foo\bar.txt');
{$I-}
Rewrite(F)
{$I+}
if IOResult = 0 then
begin
  Writeln(...);
end
else
  ShowMessage(SysErrorMessage(GetLastError));

Wenn es keinen Rückgabewert gibt und die Methode doch eine Exception auslöst, dann würde das so aussehen:

Delphi-Quellcode:

  StringList := TStringList.Create;
try
  try
    StringList.SaveToFile(...);
  except
    on E: Exception do ShowMessage(E.Message);
  end;
finally
  FreeAndNil(StringList);
end;