[Z@voorchik]

помогите, плииз... добавил блок try...except, а при проверке программы все равно выдает исключение. почему?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

function LinearEquation(a: real; b: real): real; begin   try     Result := -(b / a);   except     on EZeroDivide do       begin         MessageBeep(MB_ICONERROR);         MessageDlg('Коэффициент а не должен равняться нулю!', mtError, [mbOK], 0);         Exit;       end;     on EConvertError do       begin         MessageBeep(MB_ICONERROR);         MessageDlg('Введите коэффициенты!', mtError, [mbOK], 0);         Exit;       end;   end; end;

[Страдалецъ]

Если проверяете в отладчике, то так и должно быть если только в настройках не отключите опцию, но с этим отключением надо осторожнее быть.

[Z@voorchik]

большое спасибо! запустил приложение не из Delphi и все нормально

[Nyctos Kasignete]

Возможно, вы предусмотрели не все исключительные ситуации? Мне удалось получить только сообщение Invalid floating point operation, когда a=b=0. При желании можете на все "неизвестные" исключения поставить одно сообщение: "Произошла неизвестная ошибка!" X)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

function LinearEquation(a: real; b: real): real; begin   try     Result := -(b / a);   except     on EZeroDivide do       begin         MessageBeep(MB_ICONERROR);         MessageDlg('Коэффициент а не должен равняться нулю!', mtError, [mbOK], 0);         Exit;       end;     on EConvertError do       begin         MessageBeep(MB_ICONERROR);         MessageDlg('Введите коэффициенты!', mtError, [mbOK], 0);         Exit;       end;   else         MessageDlg('Unknown error!', mtError, [mbOK], 0);   end; end;

[Z@voorchik]

спасибо, недочет исправлен