Hi,
bei mir gibts zwar auch die
Exception, aber dafür in einer Zeile.
Zum testen habe ich es nochmal aufgesplittet...
Delphi-Quellcode:
var
s: single;
I: Integer;
begin
s:= 1111111111/ 0.0000000001;
I := trunc(s); //<-- hier EInvalidOp (s = 1,1111111456e+19)
caption:= inttostr(I);
end;
Hast du es mit Breakpoint setzen + F8 versucht?
Es liegt daran, dass S (immerhin 1,11 * 10^19) zu groß ist, um z. B. per Trunc in einen Integer umgewandelt werden zu können.
Bei mir wurde übrigens bei Applicatzion.Run (ohne Breakpoint+F8 ) gehalten - das ist nicht nirgendwo (und sogar korrekt
).
Mfg
FAlter