Problem mit Division durch null

[Roland Ulpts]

Folgender Code führt auf einigen Rechnern (aktueller Fall PIII 733 mit
VIA Chipsatz) nicht zu
einer normalen Exception sondern zu einem Blue-Screen mit schwerer
Ausnahmefehler 0E.

Wir nutzen D5 Professional.

procedure TForm1.Button2Click(Sender: TObject);
var r,r1 : real;
s : String;
begin
r:=123456.78;
r1:=0.0;
r:=r/r1;
str(r:9:2,s);
showmessage(s);
end;

Wer hat eine Idee woran das liegen kann ?

mfg
Roland Ulpts

[Matthias Fichte]

Hallo Roland,<br>
setze die division r:=r/r1 in eine try excpet routine</br>
und r,r1 als Double</br>
<br>
procedure blaBla(Sender : TObject);</br>
var</br>
r1, r : Double;</br>
s : String;</br>
begin</br>
r:=123456.78;</br>
r1:=0.0;</br>
try</br>
r:=r/r1;</br>
except</br>
r := 123456.78;</br>
end;</br>
str(r:9:2,s);</br>
showmessage(s);</br>
end;</br>

Gruß Matthia