---

Hej

Jeg har et program, hvor i jeg gør følgende:



Try
MyNumber := ANumber / BNumber;
Except
MyNumber := 0;
End;

På en bestemt maskine medfører det en fejl (Windows blå skærm).



Men gør jeg i stedet for dette:

Try
if (BNumber<>0) then
MyNumber := ANumber / BNumber
else
MyNumber := 0;
Except
MyNumber := 0;
End;

Virker ALT perfekt.


Først troede jeg det var et driver problem.
Så jeg opdaterede ALLE drivere.
Jeg opdaterede også til VIA 4IN1 version 4.38a.
Jeg kørte WIndows UPdate og oopdaterede med alle tilgængelige
opdateringer.
Intet af det hjalp.

Sig mig er der andre der har dette problem.


--
Best Regards / Med venlig hilsen
___________
Michael Vilhelmsen
Microcom ApS, Denmark

---

Tror ikke at try fanger sådanne fejl, men blot exceptions

---

On Wed, 8 May 2002 18:36:07 +0200, "Poul Liboriussen" <poul@leef.dk>
wrote:

> Tror ikke at try fanger sådanne fejl, men blot exceptions

Division by zero er også en exception.

Michael, prøv at erstatte din "Except" med "Except on EZeroDivide do",
selv om det ikke burde gøre nogen forskel.

Husk i øvrigt, hvis du kører programmet fra Delphi, at fjerne hakket i
"Stop on Delphi Exceptions" under Tools|Debugger, Language Exceptions.

Dit eksempel virker fint hos mig.


Venligst
Thomas

---

Thomas Finnerup <TF@Picco.dk> wrote in
news:hcridu43bipdgoj3ov2ru3ekifi3iq5u7v@4ax.com:

Ja.

Mit eget program virker også på ca 99 ud af 100 maskiner !
Der er bare en maskine i ny og næ som gør dette.    

Men prøver alligevel med den der EZeroDivide, selvom jeg ikke tror det gør
en forskel.

Jeg tror simpelthen det er noget hardware / driver relateret.


Michael

---

hej der.....

prøv flg....

Try
MyNumber := ANumber / BNumber;
Except
on EDivByZero do
MyNumber := 0;
End;

/finn


Michael Vilhelmsen wrote:

> Hej
>
> Jeg har et program, hvor i jeg gør følgende:
>
> Try
> MyNumber := ANumber / BNumber;
> Except
> MyNumber := 0;
> End;
>
> På en bestemt maskine medfører det en fejl (Windows blå skærm).
>
> Men gør jeg i stedet for dette:
>
> Try
> if (BNumber<>0) then
> MyNumber := ANumber / BNumber
> else
> MyNumber := 0;
> Except
> MyNumber := 0;
> End;
>
> Virker ALT perfekt.
>
> Først troede jeg det var et driver problem.
> Så jeg opdaterede ALLE drivere.
> Jeg opdaterede også til VIA 4IN1 version 4.38a.
> Jeg kørte WIndows UPdate og oopdaterede med alle tilgængelige
> opdateringer.
> Intet af det hjalp.
>
> Sig mig er der andre der har dette problem.
>
> --
> Best Regards / Med venlig hilsen
> ___________
> Michael Vilhelmsen
> Microcom ApS, Denmark

---

Finn Bindeballe <FinnB@post6.tele.dk> wrote in news:3CD96FFD.DD2BB6A5
@post6.tele.dk:

> hej der.....
>
> prøv flg....
>
> Try
> MyNumber := ANumber / BNumber;
> Except
> on EDivByZero do
> MyNumber := 0;
> End;
>
>


Jeg vil prøve.

Michael