Eceptions
Добавлено: 03.10.2015 14: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;