Exception abfragen mit "on E : Exception do ..."

[himitsu]

Willst du die Exception eigentlich nur Loggen und sie dann dem User vorenthalten?

Wenn nicht, dann reich sie am Ende einfach weiter

Delphi-Quellcode:

try
  ConnState := TheImap.Connect(True);
except
  on E : Exception do
    begin
      SiMain.LogFatal('Connect : Exception class name = ' + E.ClassName);
      SiMain.LogFatal('Connect : Exception message = ' + E.Message);
      Raise;
    end;
  else 
    Raise;
end;

oder gibt den User eine passende Meldung.

Ich weiß ja nicht wie dein Log aufgebaut ist, aber eventuell macht sich ein zusammenhängender Eintrag übersichtlicher

Delphi-Quellcode:

try
  ConnState := TheImap.Connect(True);
except
  on E : Exception do
    begin
      SiMain.LogFatal('Connect : ' + E.ClassName + ' message = ' + E.Message);
      ShowException(E, ExceptAddr);
    end;
  else 
    Raise;
end;