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;