Eceptions

Форум для изучающих FPC и их учителей.

Модератор: Модераторы

Eceptions

Сообщение Tsuyu » 03.10.2015 15:39:13

Код: Выделить всё
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;
Tsuyu
незнакомец
 
Сообщения: 8
Зарегистрирован: 24.09.2015 16:18:57

Re: Eceptions

Сообщение Vadim » 04.10.2015 06:09:48

Tsuyu
Запускаете из Lazarus'а?
Vadim
долгожитель
 
Сообщения: 4112
Зарегистрирован: 05.10.2006 08:52:59
Откуда: Красноярск

Re: Eceptions

Сообщение Tsuyu » 04.10.2015 17:56:14

Безымянный.png
Безымянный.png (5.01 КБ) Просмотров: 8142
Vadim писал(а):Tsuyu
Запускаете из Lazarus'а?

Да.
Tsuyu
незнакомец
 
Сообщения: 8
Зарегистрирован: 24.09.2015 16:18:57

Re: Eceptions

Сообщение vitaly_l » 04.10.2015 18:11:03

А что есть: ResultString и InfString?
Может им Create нужно сделать?
Аватара пользователя
vitaly_l
долгожитель
 
Сообщения: 3333
Зарегистрирован: 31.01.2012 16:41:41

Re: Eceptions

Сообщение Vadim » 05.10.2015 03:57:30

Tsuyu писал(а):Да.

У Вас Lazarus всё перехватывает. Запустите без него.
Vadim
долгожитель
 
Сообщения: 4112
Зарегистрирован: 05.10.2006 08:52:59
Откуда: Красноярск


Вернуться в Обучение Free Pascal

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9

Рейтинг@Mail.ru
cron