AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Except-Block manuell auslösen

Ein Thema von Captnemo · begonnen am 16. Jul 2014 · letzter Beitrag vom 16. Jul 2014
Antwort Antwort
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.340 Beiträge
 
Delphi 12 Athens
 
#1

AW: Except-Block manuell auslösen

  Alt 16. Jul 2014, 08:35
Jupp, wenn man in den Exception-Block will, dann mit einer Exception.
Dafür kann man auch fertige Exceptions verwenden, wie z.B. Delphi-Referenz durchsuchenAbort für das raise EAbort.Create(...); Aber Code, der z.B. immer und absichtlich aufgerufen werden soll, gehört dort nicht rein, denn für's Aufräumen ist Try-Finally da.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.629 Beiträge
 
Delphi 12 Athens
 
#2

AW: Except-Block manuell auslösen

  Alt 16. Jul 2014, 08:47
Wenn in deiner Methode (TueDies, TueDas) eine Exception ausgelöst wird und diese dort auch in einem Exception-Block behandelt wird, dann gilt die Exception als erledigt und das Prrogramm läuft nach dem Exception-Block normal weiter - also auch in der aufrufenden Methode. Soweit hast du schon recht.

Du kannst aber als letzten Befehl in der Exception-Behandlung von TueDies und TueDas auch einfach ein raise aufrufen, dann wird die gerade behandelte Exception nochmal ausgelöst und der nächsthöhere except-Block ist mit der Behandlung dran. Dies ist die gängige Methode lokal auf eine Exception zu reagieren und trotzdem die Exception weiter nach oben zu leiten.

Auf keinen Fall aber solltest du einen unkonditionierten except -Block verwenden, der alle Exceptions abfängt. Bei Exceptions wie EOutOfMemory oder EApocalypse sollte man vielleicht etwas anders reagieren als bei einer EConvertError -Exception.

Dinge, die immer ausgeführt werden sollen - unabhängig davon ob eine Exception aufgetreten ist oder nicht - gehören (wie schon mehrfach erwähnt) in einen finally -Block.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von Captnemo
Captnemo

Registriert seit: 27. Jan 2003
Ort: Bodenwerder
1.126 Beiträge
 
Delphi XE4 Architect
 
#3

AW: Except-Block manuell auslösen

  Alt 16. Jul 2014, 12:41
Danke Uwe, das war es, was ich wissen wollte.

Berechtigt ist natürlich die Anmerkung, dass man Aufräumarbeiten nicht in eine Except sonder ein Finaly packt. Grundsätzlich richtig.

Aber in meinem Fall benötige ich den 'Aufräumvorgang' tatsächlich nur, wenn in einer der Funktionen eine Exception aufgetreten ist. Daher kam auch die Überlegung.

Und in meinem Fall ist es eben so, dass die weitere Abarbeitung von den aufeinander folgenden Funktionen im Falle einer Exception nicht nur unsinnig wären, sonderen ggf. auch weitere Exceptions auslösen würden.
Die Folge wäre, dass der User im schlimmsten Fall mehrere aufeinander folgende Fehlermeldung bekommt, die letztlich alle das gleiche Aussagen. Das kenn ich aus anderen Programmen und möchte das gerne vermeiden.

Natürlich könnte ich auch über eine Boolean mit verschachtelten IF's das ganze realisieren. Aber mir erschien der Gedanke über Try Except am Sinnvollsten, zumal ich an der Stelle sowieso eine Fehlerbehandlung brauche.
Dieter
9 von 10 Stimmen in meinem Kopf sagen ich bin nicht verrückt. Die 10. summt dazu die Melodie von Supermario Bros.
MfG Captnemo
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:29 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz