EDivByZero ohne Sysutils fangen

[Win32.API]

Hallo Zusammen!

Ich stehe gerade etwas auf dem Schlauch. Wieso fängt Delphi diese Exception nicht:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}
{$O-}

//uses SysUtils; //Ohne Kommentar funktioniert es wunderbar :O

var
  d: Integer;
begin
  try
    d := 0;
    d := d div d;
  except
    writeln('Wer haette es gedacht ...');
  end;
  readln;
end.

Na gut, das es ohne die Sysutils keine EDivByZero Exception gibt ist irgendwie klar, aber ich hätte trotzdem erwartete, dass ich im Except-Zweig lande.

Gibt es eine Möglichkeit, Delphi davon zu Überzeugen, die Exception auch ohne Sysutils im Except-Block zu fangen? SEH per Hand (fs[0] ...), SetUnhandledExceptionFilter oder AddVectoredExceptionHandler würde ich gerne vermeiden.

Schönen Gruß,
Win32.API

[Nersgatt]

Bei dem Code wird die Division wegoptimiert.

[Win32.API]

Im Release-Modus mit {$O+} schon, ich meine aber eigentlich den Debug-Modus mit {$O-} .

[Neutral General]

Hast du mal Breakpoints gesetzt?

So kannst du ja ganz leicht feststellen ob und was da wegoptimiert wurde oder auch nicht.
Mach halt im Zweifelsfall mal ein writeln(d); hinter die Division.

[DeddyH]

Du meinst writeln(d);

[Neutral General]

Öhm.. ja, richtig!