Try except - Functions - wie tief

[himitsu]

Wenn man Exceptions falsch behandelt, dann soll man sich nicht wundern.
Vorallem nicht mit MessageBoxen.

Exteptions rauschen immer bis dahin durch, wo sie abgefangen und nicht erneut ausgelöst werden.

Und zum Probieren braucht man keine Funktionen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var SOURCE, erste, zweite: Integer;
begin
  try
    try
      Self.Top := 0;
      try
        //zweite := 8 div Self.Top; // irgendein Wert durch -> NULL 0, damit es abbricht
        raise EDivByZero.Create('*peng*');
        ShowMessage('Test');
      except
        ShowMessage('zweite KLAPPT NIX');
        raise;
      end;
    except
      on E: Exception do begin
        //ShowMessage('JA NÖÖÖÖÖÖÖ erste nich');
        E.Message := 'JA NÖÖÖÖÖÖÖ erste nich' + sLineBreak + E.Message;
        raise;
      end;
    end;
  except
    on E: Exception do begin
      //ShowMessage('JA NÖÖÖÖÖÖÖ Hat nicht funktioniert.');
      ShowMessage('JA NÖÖÖÖÖÖÖ Hat nicht funktioniert.' + sLineBreak + E.Message);
    end;
  end;
end;