freepascal.ru

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

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
Запускаете из Lazarus'а?

Vadim писал(а):Tsuyu
Запускаете из Lazarus'а?

Да.

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

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

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