Exception wird nicht angezeigt

[Rainer Wolff]

Hallo,

ich habe in meinem Programm versucht, die Wurzel einer negativen Zahl zu ziehen, was natürlich nicht geht und im Programm inzwischen auch korrigiert ist.

Was mich aber interessiert: Die Exception wurde auf meinem System nicht ausgelöst, weder im Debug-Modus, noch bei Start ohne Debugger. Auf dem Kundenrechner kam allerdings korrekt die Meldung "Invalid floating point operation".

Ich habe inzwischen auch die Funktion SetExceptionMask gefunden, wenn ich

Code:

SetExceptionMask(GetExceptionMask -[exInvalidOp]);

vor die fehlerhafte Anweisung setze, wird die Exception auch ausgelöst. Aber z.b. eine Division durch null löst eine Exception aus, obwohl exZeroDivide auch in der ExceptionMask drin steht. An der Exceptionmask fummle ich sonst im Programm nirgends rum.

Wer kann mir hier die Zusammenhänge noch etwas erläutern bzw. einen aufklärenden Link schicken.

Gruß Rainer

[Luckie]

Zeig mal den ursprünglichen Code.

[Rainer Wolff]

Zitat von Luckie:

Zeig mal den ursprünglichen Code.

Da ist jetzt eigentlich nix besonderes dran, ich habe halt einfach die Parameter nicht kontrolliert.
Hoehe hat nach der Operation den Wert -NAN

Code:

  //SetExceptionMask(GetExceptionMask -[exInvalidOp]);
  Hoehe:=Einstellungen.LaengeSchere-sqrt(Sqr(Einstellungen.Laengeschere)-sqr(hoehe));

[Luckie]

Hm, kann ich nicht nachvollziehen:

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var
  Hoehe: Double;
begin
  try
    Hoehe:=50-sqrt(Sqr(5)-sqr(25));
    ShowMessage(FloatToStr(Hoehe));
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
end;

Exception wird ausgelöst und gefangen.

[Bernhard Geyer]

Zufälligerweise eine HP-Drucker installiert? AFAIK stellen/stellten diese Systemweit an der Exception-Maske rum.

[Luckie]

Zitat von Bernhard Geyer:

Zufälligerweise eine HP-Drucker installiert? AFAIK stellen/stellten diese Systemweit an der Exception-Maske rum.

Das ist jetzt nicht dein Ernst?