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

[himitsu]

EIdConnectionStateError sollte (hoffentlich) irgendwo die Exception-Klasse als Vorfahren haben.

Und diese On-Statemenst sollten alles abfangen, welches entweder der angegebenen Klasse entspricht oder diese als Vorfahren hat.


Also eigentlich sollte es funktionieren.


Was passiert denn hier?

Delphi-Quellcode:

try
  ConnState := TheImap.Connect(True);
except
  SiMain.LogFatal('Connect : Exception class name = ' + ExceptObject.ClassName);
  if ExceptObj is Exception then
    SiMain.LogFatal('Connect : Exception message = '+ Exception(ExceptObject).Message);
end;

Aber über on E: Exception do wäre der bessere Weg.