[fpc-devel] procedure ShowException

[Ondrej Pokorny]

Hello,

is there any reason the OnShowException event is ignored for console 
applications?

Why not so:

procedure ShowException(ExceptObject: TObject; ExceptAddr: Pointer);
// use shortstring. On exception, the heap may be corrupt.
Var
   Buf : ShortString;
begin
SetLength(Buf,ExceptionErrorMessage(ExceptObject,ExceptAddr, at Buf[1],255));
   If Assigned(OnShowException) Then
     OnShowException (Buf)
   Else
   If IsConsole Then
     writeln(Buf)
end;

?

Ondrej