Raise, welche Anwendungsgebiete?

[Waldteufel]

Hi.

Mal ein Anwendungsbeispiel:

Delphi-Quellcode:

procedure Fehleranfaellig;
var
  i, j : integer;
begin
  try
    i := 0;
    j := i div 12;
  except
    ShowMessage('Du hast wohl in Mathe nicht aufgepasst... Durch 0 kann nicht geteilt werden...');
    raise;
  end;
end;

procedure Fehler;
begin
  try
    Fehleranfaellig;
  except
    ShowMessage('Da hat einer den Code verhunzt!!!');
    raise;
  end;
end;

procedure Test;
begin
  try
    Fehler;
  except
    ShowMessage('Mist...');
  end;
end;