Mega Code Archive

 

Categories / Delphi / Examples

 

Exceptions

TRAPPING DELPHI EXCEPTIONS var InValid : Boolean; begin InValid := False; try date := StrToDate(dateString); except on EConvertError do InValid := True; end; if Invalid then Showmessage('Invalid date...');