AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Was würdet ihr von einem try-except-finally-Konstrukt halten?
Thema durchsuchen
Ansicht
Themen-Optionen

Was würdet ihr von einem try-except-finally-Konstrukt halten?

Ein Thema von Codehunter · begonnen am 10. Aug 2018 · letzter Beitrag vom 15. Aug 2018
Antwort Antwort
Seite 3 von 6     123 45     Letzte »    
Benedikt Magnus

Registriert seit: 6. Jul 2012
Ort: Bonn
190 Beiträge
 
FreePascal / Lazarus
 
#21

AW: Was würdet ihr von einem try-except-finally-Konstrukt halten?

  Alt 10. Aug 2018, 14:18
Der Unterschied tritt dann auf, wenn in Fehlerbearbeitung eine neue Exception auftritt (entweder durch ein raise oder "aus Versehen")
Dann hätten wir aber mit "try-except-finally" eine stillschweigend unter den Tisch gefallene unbehandelte Exception.
  Mit Zitat antworten Zitat
SProske

Registriert seit: 16. Feb 2015
Ort: Halle/S.
116 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#22

AW: Was würdet ihr von einem try-except-finally-Konstrukt halten?

  Alt 10. Aug 2018, 14:22
Der Unterschied tritt dann auf, wenn in Fehlerbearbeitung eine neue Exception auftritt (entweder durch ein raise oder "aus Versehen")
Dann hätten wir aber mit "try-except-finally" eine stillschweigend unter den Tisch gefallene unbehandelte Exception.
Ich würde jetzt sagen du hättest ein nicht korrekt freigegebenes TKlasse.
Die im except-Fall aufgetretene Exception sollte in beiden Fällen nach oben durchgereicht werden.
Sebastian
  Mit Zitat antworten Zitat
Benedikt Magnus

Registriert seit: 6. Jul 2012
Ort: Bonn
190 Beiträge
 
FreePascal / Lazarus
 
#23

AW: Was würdet ihr von einem try-except-finally-Konstrukt halten?

  Alt 10. Aug 2018, 14:27
Ich würde jetzt sagen du hättest ein nicht korrekt freigegebenes TKlasse.
Die im except-Fall aufgetretene Exception sollte in beiden Fällen nach oben durchgereicht werden.
Gut zu wissen!
Dann gäbe es aber immer noch eine unbehandelte Exception. Dinge, die man im Fehlerfalle macht, sollten keine Exception werfen, oder diese zumindest selbst ordentlich abfangen und verarbeiten.

Ich habe nichts gegen ein solches Konstrukt, sehe aber auch nicht, wie es bei sicherer Programmierung notwendig wäre.
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

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

AW: Was würdet ihr von einem try-except-finally-Konstrukt halten?

  Alt 10. Aug 2018, 14:42
Delphi-Quellcode:
Objekt := TKlasse.Create;

try
  Objekt.MacheEtwas;
except
  on E: EIrgendwas do Fehlerbearbeitung;
end;

Objekt.Free;
Der Unterschied tritt dann auf, wenn in Fehlerbearbeitung eine neue Exception auftritt (entweder durch ein raise oder "aus Versehen")
Das Free wird auch dann nicht aufgerufen, wenn eine andere Exception als EIrgendwas auftritt.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
SProske

Registriert seit: 16. Feb 2015
Ort: Halle/S.
116 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#25

AW: Was würdet ihr von einem try-except-finally-Konstrukt halten?

  Alt 10. Aug 2018, 15:28
Ich würde jetzt sagen du hättest ein nicht korrekt freigegebenes TKlasse.
Die im except-Fall aufgetretene Exception sollte in beiden Fällen nach oben durchgereicht werden.
Gut zu wissen!
Dann gäbe es aber immer noch eine unbehandelte Exception. Dinge, die man im Fehlerfalle macht, sollten keine Exception werfen, oder diese zumindest selbst ordentlich abfangen und verarbeiten.

Ich habe nichts gegen ein solches Konstrukt, sehe aber auch nicht, wie es bei sicherer Programmierung notwendig wäre.
Nur weil man try-except aufruft, heißt das ja nicht, dass man nicht eine Exception weiterreichen will, z.B.

- die abgefangene Exception auf eine eigene Exceptionsklasse ummappen
- eine Notfallroutine starten, aber die Exception trotzdem laufen lassen
- nur bestimmte Exceptions abfangen und alles andere weiterreichen
Sebastian
  Mit Zitat antworten Zitat
Frickler

Registriert seit: 6. Mär 2007
Ort: Osnabrück
599 Beiträge
 
Delphi XE6 Enterprise
 
#26

AW: Was würdet ihr von einem try-except-finally-Konstrukt halten?

  Alt 10. Aug 2018, 17:59
Das war nur ein Pseudocode-Beispiel wie es in der Praxis oft vorkommt und sich viele was drunter vorstellen können. Anstatt der Transaction kann an sich auch irgend ein Object-Create-Free vorstellen.
Bei der Gelegenheit wäre eine Erweiterung von "with" auch praktisch:

Delphi-Quellcode:
with qry:=TUniQuery.Create(nil), frm:=TMyForm.Create(nil) do // oder frm = ...
try
  qry.Connection := Datenmodul.MeineDB;
  qry.SQL.Text := 'SELECT bla FROM blubb WHERE fasel';
  [...]
  frm.Machwas;
  frm.ShowModal;
except
  on E: Exception do Blablubb;
finally
  frm.Free;
end;
Das wünsche ich mir schon lange

In diesem speziellen Fall (und ner kurzen Procedure) kann man natürlich auch "frm" einfach oben definieren. Aber wenn die Procedure länger wird, geht der Zusammenhang schnell verloren.
  Mit Zitat antworten Zitat
Benutzerbild von Codehunter
Codehunter

Registriert seit: 3. Jun 2003
Ort: Thüringen
2.272 Beiträge
 
Delphi 10.4 Sydney
 
#27

AW: Was würdet ihr von einem try-except-finally-Konstrukt halten?

  Alt 10. Aug 2018, 19:55
Gerade dann wenn zwischen dem try und dem except bzw. dem finally viel Quelltext steht, wenn sich innerhalb dessen noch ein paar try-Blöcke aufhalten, dann wird es schon recht unübersichtlich. Und auf das Problem als solches aufmerksam wurde ich, weil ich genau den Fall hatte wie im Eingangspost beschrieben: Eine Transaction sollte ein Rollback im Except-Fall machen und ein Commit im Finally-Fall. Allerdings musste ich das durch einen boolschen "Nebenläufer" absichern.

Bei der Gelegenheit wäre eine Erweiterung von "with" auch praktisch
"with" ist sein einiger Zeit schon missbilligt wegen der Scope-Fehler. Ich habe früher sehr viel mit with gearbeitet und habe mir das komplett abgewöhnt. Der Code wird dadurch viel lesbarer. Auch wenns hier dann mehr Tipparbeit bedeutet. Aber das ist ein anderes Thema.

Das möchte ich auch noch mal betonen: Mir geht es vorrangig um die Lesbarkeit, was nicht gleichbedeutend ist mit möglichst kompaktem Code. Dass try-except-finally zu weniger Codezeilen führt ist eher ein unbeabsichtigter Nebeneffekt.
Ich mache grundsätzlich keine Screenshots. Schießen auf Bildschirme gibt nämlich hässliche Pixelfehler und schadet der Gesundheit vom Kollegen gegenüber. I und E zu vertauschen hätte den selben negativen Effekt, würde aber eher dem Betriebsklima schaden
  Mit Zitat antworten Zitat
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.388 Beiträge
 
Delphi 12 Athens
 
#28

AW: Was würdet ihr von einem try-except-finally-Konstrukt halten?

  Alt 11. Aug 2018, 08:13
with qry:=TUniQuery.Create(nil), frm:=TMyForm.Create(nil) do // oder frm = ... ...Satan weiche! Wie schon immer berichtet nimmst du mit with dir die Debugging Möglichkeiten...vom Scope-Fehler mal abgesehen.
  Mit Zitat antworten Zitat
mjustin

Registriert seit: 14. Apr 2008
3.006 Beiträge
 
Delphi 2009 Professional
 
#29

AW: Was würdet ihr von einem try-except-finally-Konstrukt halten?

  Alt 11. Aug 2018, 09:01
Gerade dann wenn zwischen dem try und dem except bzw. dem finally viel Quelltext steht, wenn sich innerhalb dessen noch ein paar try-Blöcke aufhalten, dann wird es schon recht unübersichtlich. Und auf das Problem als solches aufmerksam wurde ich, weil ich genau den Fall hatte wie im Eingangspost beschrieben: Eine Transaction sollte ein Rollback im Except-Fall machen und ein Commit im Finally-Fall. Allerdings musste ich das durch einen boolschen "Nebenläufer" absichern.
Exceptions sollten nicht zur normalen Ablaufsteuerung verwendet werden. Der finally Block ist für Code zum Freigeben von Objekten und anderen Systemresourcen vorgesehen.

Es geht ganz ohne "Nebenläufer":

Delphi-Quellcode:
BeginTransaction;
try
  MachWasMitDerDatenbank;
  CommitTransaction;
except
  RollbackTransaction;
end;
Michael Justin
habarisoft.com
  Mit Zitat antworten Zitat
Benutzerbild von Codehunter
Codehunter

Registriert seit: 3. Jun 2003
Ort: Thüringen
2.272 Beiträge
 
Delphi 10.4 Sydney
 
#30

AW: Was würdet ihr von einem try-except-finally-Konstrukt halten?

  Alt 11. Aug 2018, 09:04
Zumal mir an dem gegebenen Beispiel nicht so ganz klar wird, wofür das with hier überhaupt gebraucht wird, da beide Elemente (qry und frm) benannt sind und auch als benannte Elemente verwendet werden. Genau genommen hat man auf diese Weise eine Zeile gespart und zwei Keywords hinzugefügt. Aber wie gesagt, das ist ein Thema für sich.

Delphi-Quellcode:
with qry:=TUniQuery.Create(nil), frm:=TMyForm.Create(nil) do // oder frm = ...
try
  qry.Connection := Datenmodul.MeineDB;
  qry.SQL.Text := 'SELECT bla FROM blubb WHERE fasel';
  [...]
  frm.Machwas;
  frm.ShowModal;
except
  on E: Exception do Blablubb;
finally
  frm.Free;
end;
In abgewandelter Form siehts genauso aus und funktioniert sogar, bringt aber genauso wenig Nutzen:
Delphi-Quellcode:
qry:=TUniQuery.Create(nil); frm:=TMyForm.Create(nil); // oder frm = ...
try
   qry.Connection := Datenmodul.MeineDB;
   qry.SQL.Text := 'SELECT bla FROM blubb WHERE fasel';
   [...]
   frm.Machwas;
   frm.ShowModal;
except
   on E: Exception do Blablubb;
finally
   frm.Free;
end;
Ich mache grundsätzlich keine Screenshots. Schießen auf Bildschirme gibt nämlich hässliche Pixelfehler und schadet der Gesundheit vom Kollegen gegenüber. I und E zu vertauschen hätte den selben negativen Effekt, würde aber eher dem Betriebsklima schaden

Geändert von Codehunter (11. Aug 2018 um 09:07 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 3 von 6     123 45     Letzte »    


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 14:42 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz