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