In nonVCL Fehler / Exceptions abfangen ?

[alzaimar]

Zitat von sirius:

Try-except sollte immer funktionieren...

Hmm...

Delphi-Quellcode:

program ExceptionTest;
{$APPTYPE CONSOLE}
Var
  a,b : Integer;

begin
  a := 1;
  b := 0;
  Try
    a := a div b;
  Except
    writeln('Except geht');
  End;
  WriteLn(a); // Damit die Division nicht noch wegoptimiert wird.
end.

Ich müsste also 'Except geht' sehen. Leider hängt sich das Programm auf bzw. terminiert nicht.