Home » Tutorials » Object Pascal/RTL » Exceptions

Exceptions

Fehlerauswertung

Ist der Code zwischen try und except umfangreicher, so kann es sinnvoll sein, zu überprüfen, was für eine Exception überhaupt aufgetreten ist, und entsprechend zu reagieren.

procedure TForm1.Edit1Exit(sender: TObject);
var datum: TDate;
begin
  try
    datum:=StrToDate(Edit1.Text);
  except
    on EConvertError do begin
      ShowMessage('Hee! Hier darf nur ein gültiges Datum '+
      'eingegeben werden!');
      Edit1.SetFocus;
    end;
  end;
end;

Die Beschreibungen und die möglichen Exception-Klassen sind in der VCL-Hilfe zu finden. Sie beginnen alle mit einem E.