division por cero
 

Hola a todos.

¿Alguien sabe porque en delphi7 al intentar realizar una division por cero
no salta la excepción?

Saludos

Pues acabo de hacer una prueba y la excepción salta.

Código Delphi [-]
  procedure TForm1.Button1Click(Sender: TObject);
  var
  a,b,c:Double;
  begin
  a:=7;
  b:=0;
  c:=a/b;
  ShowMessage(FormatFloat(',0.00',c));
  end;

Un Saludo.

Quizas tienes deshabilitado alguna opción del debugger

Hola a todos.
Intentarlo sin asignar el valor 0 a una variable (x/0) y vereis
Saludos

Este código genera una excepción

Código Delphi [-]
var
  X: Double;

begin
  X := 1;
  Caption := FloatToStr(X/0);
end;

¿Y si en lugar de jugar a las adivinanzas nos pones el código que estás usando?

// Saludos

Hola
No se trata de ninguna adivinanza.
Este codigo no genera una excepcion

Código Delphi [-]
begin

  Caption := FloatToStr(1/0);

end;

Saludos a todos

¿Te has fijado en lo que aparece en el caption?

El compilador interpreta 1/0 como la constante INFINITY. INFINITY y NAN (not a number) son valores especiales que define la FPU del procesador.

Según parece, Delphi siempre va a generar una excepción cuando este tipo de valores ocurran, a menos, claro, que el compilador mismo detecte que es una de ellas.

En X/0 no puede determinarlo pues dependiendo del valor de X se obtiene INFINITY o NAN.

Pero esto tiene que ver con la forma en que el FPU trata este tipo de valores. Si pones

Código Delphi [-]
var
  X: Double;

begin
  { de la unidad Math                               }
  {                                                 }
  { de acuerdo a la ayuda de Delphi, esto hace que  }
  { la FPU no genere una excepción y en su lugar    }
  { produzca INFINITY                               }
  SetExceptionMask([exZeroDivide]);

  X := 1;
  Caption := FloatToStr(X/0);
end;

verás que ya no salta la excepción y aparece 'INF' en el caption.

// Saludos

Hola.
Si, ya he visto lo que ponia en el caption.
La pregunta venia al caso porque en otras versiones de delphi no recuerdo que el compilador realizara este tipo de tratamiento sobre los valores INFINITY ó NAN.

Saludos a todos