@Omata
Sofern nur ein Try-Block existiert stimmt das (habe ich ja in meinem Projekt jetzt auch so genutzt).
Aber die Struktur ist unschön, sofern in FuncA ein Fehler auftritt. Dieser ist schwerer zu finden, als wenn es keinen Try-Block gäbe.
Delphi-Quellcode:
begin
try
FuncA;
FuncB;
// hier kommt alles rein
finally
// Bei Fehler in FuncA geht es kommentarlos hier weiter.
// und das hier wird vor dem Verlassen ausgeführt, egal, was vorher war.
end;
end;
@NamenLozer
Naja, man könnte sich die Verschachtelungen sparen.
Und ein Try-Block ist ja nicht dafür da, einen Funktionsaussprung zu regeln, sondern Fehler abzufangen.
Das ist aber nicht mein Anliegen.
Man könnte sich ja auch eine abschließende Ergebnisberechnung vorstellen, z.B.
Result := A+B+C
, die an 10 verschiedenen Stellen notwendig werden kann.
Mit FinallyExit bräuchte man dies nur als letzte Zeile deklarieren und könnte überall einfach Exit aufrufen, das den Resultwert berechnet und den Rücksprung veranlasst.
Ich fände das übersichtlich und logisch.
@all
Aber ok, ich gebe mich geschlagen.
