wie funktioniert try except

[DeddyH]

Stimmt, ein einfaches ShowMessage dazwischen und die Sache stellt sich schon anders dar.

Delphi-Quellcode:

var a,b:integer;
begin
  b := 0;
  try
    a := 1 div b;
    ShowMessage(inttostr(a)); //Hier wird auf a zugegriffen, daher keine Optimierung
    ShowMessage('Kein Fehler')
  except
    ShowMessage('Fehler')
  end;
end;