NaN oder Exception bei Division durch Null

[Bummi]

Über Sinn oder Unsinn kann man sicher streiten ...

http://docwiki.embarcadero.com/CodeS...W_%28Delphi%29

Delphi-Quellcode:

uses math;
procedure TForm5.FormCreate(Sender: TObject);
begin

 SetExceptionMask(GetExceptionMask + [exZeroDivide]);
end;

procedure TForm5.FormDestroy(Sender: TObject);
begin
 SetExceptionMask(GetExceptionMask - [exZeroDivide]);
end;