Отключить NAN

@ksvsvk · Регистрация: 15.06.2014

Author24 — интернет-сервис помощи студентам

При переносе своего кода из Delphi 2010 в Delphi 10.1 Update 2 столкнулся с проблемой.

Алгоритм построен по принципу вложенной обработки исключений при решении кубического уравнения

A * X³ + B * X² + C * X + D = 0

Используется конструкция вида

Delphi

try
  //Решение уравнения как кубического
except
  try
    //Решение уравнения как квадратного
  except
    //Решение уравнения как линейного
  end;
end;

При задании коэффициентов линейного уравнения (A = B = 0) срабатывает первый except, а вот вместо срабатывания второго результату присваивается значение NAN. Можно ли отключить присвоение этого значения опциями компиляции или нужно переделывать алгоритм?

@krapotkin · 22.09.2017, 08:41

ничего не понятно
в сто раз проще прикрепить пример

@ksvsvk · 25.09.2017, 06:46 **[ТС]**

Пример тут ничего не даст. Вопрос состоит в следующем:

В старых версиях Delphi при возникновении деления 0.0/0.0 возникало исключение EInvalidOp, а в версии 10.1 вместо этого результату присваивается NAN. Есть ли опция компилятора, с помощью которой можно вернуть старое поведение, т.е. возникновение EInvalidOp?

@krapotkin · 25.09.2017, 07:16

http://docwiki.embarcadero.com... eptionMask

@ksvsvk · 02.11.2017, 06:46 **[ТС]**

В моем случае не сработало. Но там есть еще один метод -- SetExceptions. Так вот с ним парадоксальная ситуация.

Для проверки создаю новое приложение с единственной формой, в обработчике onCreate которой пишу

Delphi

procedure TForm1Create(Sender: TObject);
begin
  SetExceptions(GetExceptions() + [exInvalidOp, exZeroDivide]);
end;

В окне Watches смотрю значение GetExceptions.

Так вот, для приложения MDA все срабатывает нормально и данные ключи устанавливаются без проблем. А вот в случае приложения VCL вместо установленных ключей вижу строку "Floating point invalid operation at 0040730C".

Так происходит только у меня?

@snake32 · 02.11.2017, 12:57

SetExceptionMask, а не SetException

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	22.09.2017, 08:41	2
	ничего не понятно в сто раз проще прикрепить пример 0

@ksvsvk 1 / 1 / 0 Регистрация: 15.06.2014 Сообщений: 96
	25.09.2017, 06:46 [ТС]	3
	Пример тут ничего не даст. Вопрос состоит в следующем: В старых версиях Delphi при возникновении деления 0.0/0.0 возникало исключение EInvalidOp, а в версии 10.1 вместо этого результату присваивается NAN. Есть ли опция компилятора, с помощью которой можно вернуть старое поведение, т.е. возникновение EInvalidOp? 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	25.09.2017, 07:16	4
	http://docwiki.embarcadero.com... eptionMask 0

@snake32 3420 / 1607 / 236 Регистрация: 26.02.2009 Сообщений: 7,856 Записей в блоге: 5
	02.11.2017, 12:57	6
	SetExceptionMask, а не SetException 0