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.