Fehlerbehandlung mit Try..Except

[Niko]

Das müsste eigentlich so funktionieren:

Delphi-Quellcode:

procedure TFrmMain.BtnFileOpenClick(Sender: TObject);
begin
  Try
    OpenFile();
  Except
    on E: Exception do
      MyErrorHandling(E);
  end;  
end;

procedure ErrorHandling(E: Exception);
begin
  if E.ClassNameIs('EMyOpenFile') then showMessage('Fehler beim Oeffnen')
  else if E.ClassNameIs('EMyReadFile') then showMessage('Fehler beim Lesen')
  else if E.ClassNameIs('EMyWriteFile') then showMessage('Fehler beim Schreiben');
end;