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;