Системные прерывания

[Mazourik]

Можно ли перехватить и самостоятельно обработать системное прерывание, например деление на 0 ?

[min@y™]

системное прерывание

а что за система?
Если прерывание аппаратное - никак.
Если программное, то это и не прерывание, а exception.

[p51x]

Если прерывание аппаратное - никак.

Например, на армах можно, но надо глубоко закопаться...

[kropotkina-alice]

Сообщение от Mazourik

Можно ли перехватить и самостоятельно обработать системное прерывание, например деление на 0 ?

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: extended;
begin
a:=3;
b:=0;
try
c:=a/b;
except
  on E: Exception do
  ShowMessage('Федя! Делить на ноль - не комильфо!');
end;
end;

[саша40]

Сообщение от Mazourik

Можно ли перехватить и самостоятельно обработать системное прерывание, например деление на 0 ?

Try
<Ваш код>
Except
<Код, который сработает при исключительном случае>

[Вадим Мошев]

Сообщение от kropotkina-alice

  ShowMessage('Федя! Делить на ноль - не комильфо!');

Не пойдёт, если автора зовут не Федя

[Smitt&Wesson]

Сообщение от Вадим Мошев

Не пойдёт, если автора зовут не Федя

Можно. И зовут меня не Федя . Есть таблица системных прерываний.
Как ни странно, с адресами с 0 по 255.

[northener]

Сообщение от Smitt&Wesson

Можно. И зовут меня не Федя . Есть таблица системных прерываний.
Как ни странно, с адресами с 0 по 255.

И где в этой таблице "деление на ноль"?

[Пепел Феникса]

Сообщение от northener

И где в этой таблице "деление на ноль"?

ошибка деления, вектор 0.


только вот не достучится ТС до нее

[Mazourik]

Работает, но сначала вылетает системное сообщение об ошибке