Schleifenabbruch durch exception verhindern

[Uwe Raabe]

Zitat von baumina:

Die Schleife wird ja auf jeden Fall komplett durchlaufen, nur der riesige try-finally-Block halt nicht.

Nee! Die Schleife bricht nach dem finally ab und die Exception wird an die nächste Ebene weitergereicht.

So könnte man es lösen:

Delphi-Quellcode:

  for i := 0 to MaxLoop do begin
    aClass := TClass.Create();
    try
      try
        aClass.DoA;
        AClass.Do;

        if aClass.result > 0 then begin
          /// Ergebnisse auswerten
        end;
      except
        { Bug noch diesen Monat fixen! }
        if Now > EncodeDate(2015, 1, 31) then
          raise;
      end;
    finally
      aClass.Free;
    end;
  end;

[baumina]

Hopsa, mit try-except verwechselt ... peinlich.

[Mavarik]

Zitat von baumina:

Hopsa, mit try-except verwechselt ... peinlich.

was fehlt ist ein

Delphi-Quellcode:

try

FinallyAndExcept
end;

Mavarik

[Der schöne Günther]

wat

[Mavarik]

wie oft hat man

Delphi-Quellcode:

try
 try
 except
 end;
finally
end;

besser ein

Delphi-Quellcode:

try
...
FinallyAndExcept
end;

Dat is nen Featurerequst @EMBT

[Der schöne Günther]

In Java gibt es bspw.

Code:

try {
   // Stuff
}
catch(IOException e) {
   System.out.println("Exception: ");
   e.printStackTrace();
}
finally {
   // Stuff
}

Das zwingend in try..except und try..finally aufzusplitten ist eins der wenigen Dinge die ich in Pascal irgendwie schöner als anderswo finde.

Liegt wahrscheinlich an der Einrückung, man sieht so deutlicher was auf jeden Fall abläuft und was nur im Fehlerfall. In Javas try..catch..finally sieht das alles gleichberechtigt aus.

[mm1256]

Zitat von Mavarik:

Dat is nen Featurerequst @EMBT

+ 1

[himitsu]

Finally wird immer verarbeitet und wenn man zwischen Finally und End eine aktuell eventuell vorhandene Exception verwirft, dann hätte man auch jetzt schon sein Try-Finally&Except.
Wenn man nur prüfen will, ob eine Exception auftrat, um diese eventuell zu loggen, aber nicht um sie zu behandeln, dann reicht ebenfalls ein Try-Finally und ein 22-buchstabiger Befehl.

Aber ja, um 2-3 Zeilen und eine Ebene in der Einrückung zu sparen, wäre ein Try-Finally-Except-End, bzw. Try-Except-Finally-End bestimmt ganz nett.

[Uwe Raabe]

Zitat von Mavarik:

was fehlt ist ein

Delphi-Quellcode:

try

FinallyAndExcept
end;

Das ist aber wieder etwas anderes, denn das finally wird immer ausgeführt, während das except nur im Fehlerfall ausgeführt wird. Aber sowas hier wär manchmal schön:

Delphi-Quellcode:

try
  ...
except
  ...
finally
  ...
end;

Wobei ich mir da sogar vorstellen kann, daß man über die Anordnung try - except - finally oder try - finally - except auch festlegen kann, ob der except- oder der finally-Code erst ausgeführt werden soll. Aber ehrlich gesagt tun es ja auch die beiden geschachtelten try-Blöcke.