Exception: Schleife soll nicht abbrechen!

[sx2008]

Hier ein Beispiel:

Delphi-Quellcode:

var
  all_errors : string;
  i : integer;
begin
  all_errors := '';
  for i := 1 to 100 do
  begin
    try
      BerechneIrgendWas(i);
    except
      // Exception abfangen und merken
      // man beachte den Zeilenumbruch #13#10
      // wichtig für spätere Fehlersuche ist auch der Schleifenindex
      on E:Exception do
         all_errors := all_errors + Format('Zeile %d: %s'#13#10, [i, E.Message]);
    end;
  end; 
  // Schleife fertig - Zeit um dem Benutzer die Fehler zu präsentieren
  if all_errors <> '' then
  begin
    ShowMessage('Achtung, folgende Fehler sind aufgetreten'#13#10+ all_errors);
    // jede weitere Verarbeitung abbrechen
    Abort;
  end;
end;

Falls der Debugger bei jeder Exception stehenbleibt, ist das kein Problem sondern nur Einstellungssache.