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!

[Win32.API]

Mit {$O-} wird nichts "wegoptimiert". Darum geht es hier aber auch nicht, es geht auch nicht darum, ob der Quelltext so Sinn macht oder nicht. Die Frage ist wieso verweigert der Exception-Handler den Dienst, wenn ich die Sysutils nicht einbinde.


Edit: Das Problem ist, dass die Exception geworfen wird, aber der Exception-Handler diese nicht fängt. Das Programm stürzt also ohne Sysutils ab (Projekt 1 funktioniert nicht mehr ...).

[himitsu]

Vermutlich weil die SysUtils nicht nur die Exceptionklassen bereitstellt, sondern auch noch so Einiges für die Exception-Behandlung initialisieren/einbinden.

Ohne SysUtils wird bei dieser Exception ein

Zitat:

Halt

ausgeführt und ein entprechender Fehlercode zurückgegeben (ans System).
Die Behandlung bricht also sofort ab und das war's dann, da die Exception unbehandelt bis in System durchgerauscht ist.

[gammatester]

Zitat von Win32.API:

Mit {$O-} Die Frage ist wieso verweigert der Exception-Handler den Dienst, wenn ich die Sysutils nicht einbinde.

Macht er doch gar nicht, er schreibt doch

Zitat:

Runtime error 200 at 00402482

Es ist halt nicht der aus Sysutils, sondern der, der default da ist (wenn Du VCL benutzt hast Du immer Sysutils).

[himitsu]

Delphi-Quellcode:

procedure RunErrorAt(ErrCode: Integer; ErrorAtAddr: Pointer);
begin
  ErrorAddr := ErrorAtAddr;
  _Halt(ErrCode);
end;

Ohne SysUtils ladet man dort und mit SysUtils wird stattdessen für bekannte Fehler die entsprechende Exception ausgelöst.