Floating point division by zero delphi ошибка

I just tried the following code:

procedure TTTest.FormCreate(Sender: TObject);
var v: extended;
    one: extended;
begin
  one := 1.0;
  v := 100*Power(1.25,one);
end;

It just compiles and runs as expected in Delphi 5.

My guess is that the division per zero flag may be set outside your code (even if you do not link to C++ code, calling Direct X or such may have the same effect), but raised later, in _Frac.

The only call to Frac in the standard implementation of Power() is to test Frac(Exponent) = 0.0.

There was a modification in the implementation of Frac between Delphi 5 and Delphi 6.

Here is the Delphi 5 version:

procedure       _FRAC;
asm
    FLD     ST(0)
    SUB     ESP,4
    FSTCW   [ESP]
    FWAIT
    FLDCW   cwChop
    FRNDINT
    FWAIT
    FLDCW   [ESP]
    ADD     ESP,4
    FSUB
end;

Here is the Delphi 6 version:

procedure       _FRAC;
asm
    FLD     ST(0)
    SUB     ESP,4
    FNSTCW  [ESP].Word     // save
    FNSTCW  [ESP+2].Word   // scratch
    FWAIT
    OR      [ESP+2].Word, $0F00  // trunc toward zero, full precision
    FLDCW   [ESP+2].Word
    FRNDINT
    FWAIT
    FLDCW   [ESP].Word
    ADD     ESP,4
    FSUB
end;

From the above code, you’ll find out that the following commands caused the delayed exceptions to be raised before Delphi 6 was released: Trunc, Frac, Ceil.

So I guess you faced an issue with Delphi 5, which has been fixed with Delphi 6. You may have to use your own version of Power, like this one:

function Power(Base, Exponent: Extended): Extended;
begin
  if Exponent = 0.0 then
    Result := 1.0               { n**0 = 1 }
  else if (Base = 0.0) and (Exponent > 0.0) then
    Result := 0.0               { 0**n = 0, n > 0 }
  else
    Result := Exp(Exponent * Ln(Base))
end;

Всем привет дорогие читатели блога, а самое главное, любители MapWindow GIS и вообще, любых других геоинформационных систем. Я обещал, что буду постепенно публиковать  материал  по новой версии MapWindow GIS, поэтому данная небольшая статья для решения одной проблемы с новой версии.

Мне уже задавали этот вопрос, а именно, что когда устанавливают компонент TMap на свою форму, а затем просто при компиляции проекта появляется ошибка: floating point division by zero. Если честно, то я не знаю, в какой момент она возникает. Может это связано с системой координат, либо еще что-то, но решается она очень и очень просто, по крайней мере, я так ее решил. Эту ошибку я наблюдал в Delphi 7, что касается других версий Delphi, я сказать ничего не могу, поэтому ее может просто и не быть.

Поэтому, если после обновления MapWindow GIS до версии 4.9.1 или 4.9.2 у Вас появляется подобная ошибка, то ниже будет описано, как ее можно решить. Мы просто отключим исключения, которые возникают с использованием чисел с плавающей точкой.

Для начала нам нужно объявить константу:

const MCW_EM = DWord($133f);

А затем на событие OnCreate формы, либо можно OnShow пишем следующий код:

Вот и все, как видите, ничего сложного. Теперь нам необходимо просто установить компонент на форму и скомпилировать проект. У меня такой ошибки больше не появляется, и программа отрабатывает на 100 процентов.

Ошибка «floating point division by zero» возникает в Delphi, когда в программе происходит деление на ноль с плавающей точкой. Она возникает из-за особенностей работы процессора с плавающей точкой и может привести к неожиданным результатам вычислений.

Чтобы избежать данной ошибки, можно добавить проверку на ноль перед выполнением операции деления. Для этого можно использовать условную конструкцию if, например:

if B <> 0 then
Result := A / B
else
Result := 0;

В данном коде мы проверяем, не равен ли знаменатель B нулю, и только в этом случае выполняем операцию деления. Если же B равен нулю, то возвращаем ноль.

Также возможны случаи, когда ошибка «floating point division by zero» возникает неочевидно, например, при вычислении математических функций, которые зависят от деления. В этом случае можно использовать специальные функции, например:

function ArcTan2(Y, X: Double): Double;
begin
if X = 0 then begin
if Y > 0 then Result := Pi / 2
else if Y < 0 then Result := -Pi / 2
else Result := 0;
end
else Result := ArcTan(Y / X);
end;

Функция ArcTan2 вычисляет арктангенс Y/X, но при этом учитывает особенности работы с плавающей точкой. Если знаменатель X равен нулю, то функция возвращает корректный результат в зависимости от знака числа Y.

PYTHON : Error python : [ZeroDivisionError: division by zero]

C++ : On which platforms does integer divide by zero trigger a floating point exception?

C++ : Error 83 error C2398: conversion from ‘double’ to ‘float’ requires a narrowing conversion

Fix invalid floating point error

Cara Memperbaiki Object di Form Yang Error — division by zero delphi

C++ : The behaviour of floating point division by zero

C++ : Floating Point, is an equality comparison enough to prevent division by zero?

Fix — Invalid Floating Point State Error in Windows 10

Binary 4 – Floating Point Binary Fractions 1

← →
Kudatsky
 
(2002-07-22 10:13)
[0]

← →
IlyaA
 
(2002-07-22 10:25)
[1]

Посмотри в доке параметры компиляции. Там есть параметр. Ругаться или нет.

← →
IlyaA
 
(2002-07-22 10:26)
[2]

А с отладчиком всё в порядке. Ошибка в коде (
ГЕНЕТИЧЕСКОМ).

ИЗВИНИ. Злая шутка вырвалась наружу

← →
VICTOR_
 
(2002-07-22 10:31)
[3]

Прверил, у меня Except обрабатывается. Попробуй поставить break-point на B:=1; и сделать трассировку(F7)

← →
kudatsky
 
(2002-07-22 10:37)
[4]

За шутку извиню. Но только если подскажешь, какой папаметр.

Иначе буду являться по ночам угрызениями совести ;-)))

← →
kudatsky
 
(2002-07-22 10:45)
[5]

← →
Skier
 
(2002-07-22 11:30)
[6]

>kudatsky

Debbuger Options|Language Exceptions|Stop on Delphi Exceptions ?

← →
kudatsky
 
(2002-07-22 11:44)
[7]

← →
Skier
 
(2002-07-22 11:50)
[8]

← →
kudatsky
 
(2002-07-22 11:56)
[9]

Опция Integrated debugging включена.

← →
Skier
 
(2002-07-22 11:57)
[10]

← →
kudatsky
 
(2002-07-22 12:02)
[11]

← →
Skier
 
(2002-07-22 12:08)
[12]

>kudatsky

У тебя в списке Exceptions на странице OS Exception есть

Float Devide By Zero ?

← →
Viewer
 
(2002-07-22 12:10)
[13]

INF — infinity (так Борланд реагирует на эти шутки)

← →
kudatsky
 
(2002-07-22 12:11)
[14]

← →
IlyaA
 
(2002-07-22 13:07)
[15]

В блоке try-except попробуй-

try

a:=b/0;

except

on EDivByZero do ShowMessage(«Error»);

end;

← →
kudatsky
 
(2002-07-22 13:43)
[16]

← →
IlyaA
 
(2002-07-22 13:45)
[17]

Похоже у тебя уже всё
упало.

← →
kudatsky
 
(2002-07-22 13:52)
[18]

Только-что инстолировал D5 на другую машину. То же самое. Что интересно, никакой реакции на

on E: Exception do ShowMessage(«Error»);

Может Delphi с глюками ?

← →
Слесарь Матерящийся
 
(2002-07-22 13:59)
[19]

← →
IlyaA
 
(2002-07-22 14:01)
[20]

Вот енто из хэлпы. Может что и прояснит

EIntError is the base class for integer math error exceptions.

← →
kudatsky
 
(2002-07-22 14:02)
[21]

С целыми числами всё в порядке, я уже пробовал.

← →
Слесарь Матерящийся
 
(2002-07-22 15:11)
[22]

То-то и оно!

← →
kudatsky
 
(2002-07-22 15:19)
[23]

????????????????

← →
tall
 
(2002-07-22 16:00)
[24]

Я эту тему пеоднимал уже несколько раз. Кстати и в этой конфе тоже. Куда только не писал. Вразумительный ответ дали только в AMD (у меня эти глюки начались после того как пересел с Pentium 200MMX на AMD 1200. Думал может связано сплатформой). Там мне сказали, что это не глюк, а изменения в компиляторе в соответствии с требованиями новых стандартов ( типа ответ +INF или -INF (бесконечность) и тому подобное это не исключительная ситуация а нормальное явление). И отослели к технической документации по процессору( там, кстати, это действительно написано). Судя по всему это относится и Pentium платформе (мне писали об аналогичных проблемах на Celeron), т.е. характерно для всех новых процессоров. Решить эту проблему удалось только откатившись на DELPHI 4. Чего и вам советую.

← →
kudatsky
 
(2002-07-23 10:27)
[25]

tall, если Вы ещё здесь!

Где это можно прочитать ?

← →
VICTOR_
 
(2002-07-23 11:48)
[26]

У тебя материнка на VIA логике?

← →
Viewer
 
(2002-07-23 12:24)
[27]