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;