Fehlerbehandlung mit Try..Except

[mickmack]

Hallo,

ich habe mal eine Frage zur Fehlerbehandlung mit Try..Except. Leider konnte ich zu dem Problem auf dem Rest der Seite nichts fidnen. Am besten stelle ich mein Problem mal in vereinfachter Form dar:

Also ich habe ein Projekt, bestehend aus mehreren Units. Die Hauptunit ist die Unit des Hauptforms.
Um mich nun an EVA zu halten(die strikte Trennung von Eingabe-Verarbeitung-Ausgabe) habe ich mir vorgenommen, alles was mit Ausgabe zu tun hat in der Formulatunit zu erledigen, dh auch einfache Fehlermeldung. Zum Beispiel habe ich alle Dateifunktionen in einer seperaten Unit UFile gelagert. Die UFile ist Unterunit der Hauptunit. Wenn dort nun ein Fehler auftritt, erstelle ich über "raise" einen Fehler vom eigenen Typ EMyFileOpen.
Da ja alle Fehler im Endeffekt aus einem Ereignis im Hauptformular hervorgerufen werden, fange ich alle "geraisten" Fehler auch nur in der Hauptunit ab. Das klappt auch wunderbar, nur eines stört mich: Alle meine Ereignismethoden im Haupform haben ja den selben ExceptBlock. Doch leider habe ich es noch nicht geschafft, diesen in eine einzelne Funktion auszulagern. Dh immer wenn ich auf einen Fehler anders reagieren möchte, muss ich das in allen BLöcken einzelnd ändern.

Also zusammengefasst, gibt es eine Möglichkeit ExceptBlöcke in Procedure auszulagern?

Hier mal ein Bespiel wie es momentan bei mir aussieht

Delphi-Quellcode:

procedure TFrmMain.BtnFileOpenClick(Sender: TObject);
begin
  Try 
    OpenFile();
  Except
    on EMyOpenFile do showMessage('Fehler beim Oeffnen');
    on EMyReadFile do showMessage('Fehler beim Lesen');
    on EMyWriteFile do showMessage('Fehler beim Schreiben');
  end;
end;

Und hier, wie ich es mir vorstelle:

Delphi-Quellcode:

procedure ErrorHandling(parameter:T???);
begin
    on EMyOpenFile do showMessage('Fehler beim Oeffnen');
    on EMyReadFile do showMessage('Fehler beim Lesen');
    on EMyWriteFile do showMessage('Fehler beim Schreiben');
end;

procedure TFrmMain.BtnFileOpenClick(Sender: TObject);
begin
  Try 
    OpenFile();
  Except
    MyErrorHandling(parameter);
  end;
end;

Alles was ich bis jetzt probiert habe, hat zu diversen Fehlermeldungen geführt

Also erstmal Danke für die Mühe das ganze durchzulesen, aber in kürzer Form denke ich, wäre mein Problem nicht verständlich gewesen.