TApplicationEvents - kontynuacja mimo błędu

0

Witam,
co zrobić, aby TApplicationEvents kontynuował procedurę mimo wystąpienia błędu?

Przykład :

procedure Zlo;
begin
  ShowMessage('1');  // wyświetli "1"
  ShowMessage(IntToStr(StrToInt('aaa'))); // wyświetli "Błąd", zatrzyma wykonywanie procedury
  ShowMessage('2'); // nic się nie stanie
end;

procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception);
begin
  ShowMessage('Błąd');
end;
0

łap wyjątek tam, gdzie może powstać. jak wyobrażasz sobie sytuację, kiedy przypisujesz wynik działania funkcji do zmiennej, funkcja rzuca wyjątek, ale wykonuje się dalej - i co zwraca? co ląduje w zmiennej? jaką wartość będzie miała zmienna i:int po operacji i := 1/0? to może akurat średnio dobry przykład, bo po prostu nie będzie mieć zmienionej wartości, ale kiedy wyjątek jest gdzieś w środku nieco bardziej skomplikowanego kodu, który będzie mimo wyjątku wykonywał się dalej, masz gwarancję serii kolejnych wyjątków i posypanie się całego programu.

1 użytkowników online, w tym zalogowanych: 0, gości: 1