Verspätete Fehlermeldung

[alcaeus]

Moin BomberBB,

nehmen wir mal folgenden Code:

Delphi-Quellcode:

procedure TForm1.DoDivisionByZero();
var
  Res: Integer;
begin
  Res := 5 / 0;
end;

procedure TForm1.DoSomething();
begin
  ShowMessage('Before');
  DoDivisionByZero();
  ShowMessage('After');
end;

Der Cursor wird beim zweiten ShowMessage haengen bleiben, bzw.: er bleibt bei der ersten Anweisung nach dem Fehler haengen. Z.B.:

Delphi-Quellcode:

procedure TForm1.DoDivisionByZero();
var
  Res: Integer;
begin
  Res := 5 / 0;
  ShowMessage('Don''t go any further'); //Hier bleibt der Cursor stehn
end;

procedure TForm1.DoSomething();
begin
  ShowMessage('Before');
  DoDivisionByZero();
  ShowMessage('After');
end;

Wenn die fehlerhafte Anweisung die letzte in einer Funktion ist, so bleibt der Cursor an der Zeile nach dem Aufruf stehn.

Greetz
alcaeus