Try..except beschleunigen

[FAlter]

Hi,

Zitat von magonline:

Das scheint tatsächlich zu funktionieren. Gibts irgendwo eine detailierte Beschreibung der FPU Funktionen/Befehle ?

Schnell mal aus nem Code rauskopiert:

Delphi-Quellcode:

//FPU CW setzen... siehe z. B. unter
//http://www.website.masmforum.com/tutorials/fptute/fpuchap1.htm#cword

{  Binär: XXXX0011XXXXXXXX (X - unverändert)
             ^             Unterscheidung zw. +INF und -INF auf alten FPUs
              ^^           Rundung: nach normalen Rundungsregeln auf-/ab
                ^^         Genauigkeit: Extended (auf manschen Systemen
                                                   komischerweise auf Double
                                                   gestellt)
                    ^^^^^^ versch. Gleitkommaexceptions
}
Set8087CW((Get8087CW and $F3FF) or $0300);

In dem Kommentar ist erklärt, was danach getan wurde.

Mfg
FAlter