Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: NaN oder Exception bei Division durch Null

    Delphi
    by gammatester, 26. Jun 2012
  Weil es in der Regel ja nicht reicht, auf <> 0 zu testen! Versuch's doch mal mit var
  x,y,z: double;
  begin
  x := 3e-308;
  y := 17;
  z := y/x;
  ShowMessage(FloatToStr(z));
  end;
  Wobei ich davon ausgehe, daß x bei seinem Aufruf normalerweise nicht 0 oder sehr klein ist, es aber passieren kann. (Wenn x immer 0 ist, wäre es ziemlich unsinnig, die Rechnungen zumachen).
• Forum: Object-Pascal / Delphi-Language

  AW: NaN oder Exception bei Division durch Null

    Delphi
    by gammatester, 26. Jun 2012
  Daß Du früher NaN hattest, finde ich sehr merkwürdig! Ich würde +Inf erwarten wie in diesem Beispiel:
  procedure TForm1.Button1Click(Sender: TObject);
  var
  emask: TFPUExceptionMask;
  x,y,z: double;
  begin
  emask := GetExceptionMask;
  SetExceptionMask(emask + );
  x := 0;
  y := 17;