Warum zeigt Application.ShowException(..) die INNERSTE?

**Der schöne Günther**

Das macht doch irgendwie keinen Sinn. Folgendes Beispiel:

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

resourcestring

   errorMsg = 'The calculation failed';

var

   divisor: Single;

   result: Single;

begin

   divisor := 0.0;

   try

      result := System.Pi() / divisor;

   except

      Exception.RaiseOuterException(

         EProgrammerNotFound.Create(errorMsg)

      );

   end;

end;

TApplication.ShowException(..) ist folgendermaßen definiert:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TApplication.ShowException(E: Exception);

var

  Msg: string;

  SubE: Exception;

begin

  Msg := E.Message;

  while True do

  begin

    SubE := E.GetBaseException;

    if SubE <> E then

    begin

      E := SubE;

      if E.Message <> '' then

        Msg := E.Message;

    end

    else

      Break;

  end;

[...]

Was macht das für einen Sinn dem Benutzer "Floating Point division by Zero" statt "The calculation failed" anzuzeigen? Das ist doch grade der Sinn von geschachtelten Exceptions, dass ich hier sagen kann, was allgemein falsch lief, und nicht welches spezielle Byte umgefallen ist.

Erleuchtet mich.

Warum zeigt Application.ShowException(..) die INNERSTE?

Warum zeigt Application.ShowException(..) die INNERSTE?

Stichworte

Forumregeln