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