Exception richtig behandeln

[sx2008]

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;