Eceptions

[Tsuyu]

Код: Выделить всё

procedure TForm1.SqrtXClick(Sender: TObject);
begin
  try
    InfString.Text := InfString.Text + (Sender as TButton).Caption
                                                + ResultString.Text;
    ResultString.Text := FloatToStr(sqrt(StrToFloat(ResultString.Text)));
  except
    on Exception do
       begin
         InfString.Text := 'Error';
         CalcStatus := Error;
         CalcStatusError();
       end;
  end;

end

;
Почему он продолжает вызывать ошибку SIGFPE, хотя я заключил в try except;

[Vadim]

Tsuyu
Запускаете из Lazarus'а?

[Tsuyu]

Безымянный.png (5.01 КБ) Просмотров: 9909

Tsuyu
Запускаете из Lazarus'а?

Да.

[vitaly_l]

А что есть: ResultString и InfString?
Может им Create нужно сделать?

[Vadim]

Да.

У Вас Lazarus всё перехватывает. Запустите без него.