division por cero

[kalimero]

Hola a todos.

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

Saludos

[marcoszorrilla]

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

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

Un Saludo.

[Nose]

Quizas tienes deshabilitado alguna opción del debugger

[kalimero]

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

[roman]

Empezado por kalimero

Intentarlo sin asignar el valor 0 a una variable (x/0) y vereis

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

[kalimero]

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

[roman]

Empezado por kalimero

Caption := FloatToStr(1/0);

¿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

[kalimero]

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