Exception wiederhervorrufen aber weitermachen ?

[chaosben]

Wie wärs damit:

Delphi-Quellcode:

procedure TForm2.btn_Button1Click(Sender: TObject);
var
  idx : Integer;
begin
  for idx:=0 to 2 do
  begin
    try
      raise Exception.Create('Huch, ein Fehler bei idx='+IntToStr(idx));
    except
      on e:Exception do
        MessageDlg('Fehler:'+e.Message, mtError, [mbOK], 0);
    end;
  end;
end;

Damit musst du natürlich die Meldung selbst anzeigen. Aber da gibt es imho keinen Weg drumherum. Denn eine ungehandelte Exception führt meiner Meinung nach immer zum Abbruch der aktuellen Prozedur.