在工程文件加入函数如)
procedure THotel_MAIN_Form.myExceptHandle(Sender : TObject; E : Exception);
var
DestStrChar;
begin
if Pos('valid date',E.Message) > 0 then //捕获非法日期
Application.messagebox(' 输入了非法日期!',pchar(application.title),mb_iconstop+mb_ok)
else if Pos('Invalid input value',E.Message) > 0 then //非法输入
Application.messagebox(' 非法输入!用ESC放弃操作 ',pchar(application.title),mb_iconstop+mb_ok)
end;
望有帮助!!