Folgender Code hat gleich drei Fehler:
Delphi-Quellcode:
try //Start try Block Datei EMail versenden
if VersendenCheckBox.Checked then
SendMail(FileName);
except //Ende try Block Exceptionbehandlung EMail versenden
ShowMessage('Datei konnte nicht als E-Mail versendet werden');
end; //Ende try Block end EMail versenden
1.) Fehler
die ursprüngliche
Exception-Meldung geht verloren.
Die Funktion SendMail() kann (wenn sie was taugt) wertvolle Hinweise gegeben, WESHALB die EMail nicht gesendet werden konnte.
Es wäre doch wirklich dumm, diese Information einfach so wegzuwerfen.
2.) Fehler
Verwendung von ShowMessage.
Wenn obiger Try..except Block innerhalb einer Schleife aufgerufen wird und es zum Fehler kommt,
dann viel Spass beim Wegklicken der Fehlermeldungen.
Oftmals bleibt nichts anderes übrig, als das Programm mit dem Taskmanager abzuschiesen.
3.) Fehler
Deine Kommentare sind nichts anderes als visuelles Störfeuer!
Es ist sinnlos und kontraproduktiv das Offensichtliche zu kommentieren.
Viel besser wäre:
Delphi-Quellcode:
try
if VersendenCheckBox.Checked
then
SendMail(FileName);
except
on E:
Exception do
begin
Exception.
Message := '
Datei konnte nicht als E-Mail versendet werden'#13#10+
Exception.
Message;
raise;
end;
end;