Программа запускается как из Delphi так и без него (обычным двойным кликом, дабы исключить ошибки настройки среды). Написана (компилируется) на Delphi 7.
Код простой. Сообщение - Возникло исключение не появляется. Никогда.
Любой код в секции except не выполняется.
Если вынести код c:=a div b;
за пределы try-except (например выше) программа сообщит Division by zero.
Почему не происходит обработка исключений?
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
begin
a:=1;
b:=0;
try
c:=a div b;
except
ShowMessage('Возникло исключение.'); //Это сообщение не появляется
//ShowMessage(inttostr(c)); //Раскомментировав эту строку мы получим сразу 2 сообщения. Исключения заработали??
end;
end;
PS
Моя задача при любых ошибках (и только ошибках) в одной секции кода, гарантировано выполнять другую секцию кода.