NaN oder Exception bei Division durch Null

[gammatester]

Daß Du früher NaN hattest, finde ich sehr merkwürdig! Ich würde +Inf erwarten wie in diesem Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  emask: TFPUExceptionMask;
  x,y,z: double;
begin
  emask := GetExceptionMask;
  SetExceptionMask(emask + [exZeroDivide]);
  x := 0;
  y := 17;
  z := y/x;
  ShowMessage(FloatToStr(z));
  SetExceptionMask(emask);
end;

Es zeigt auch wie Du die Exception 'Division durch 0' loswirst. Allerdings: Wenn das nur an einer Stelle relevant ist, solltest Du try / except verwenden. Und global die Exceptions zu maskieren, ist nicht zu empfehlen.

Gruß Gammatester