假设窗体中有一个用于用户输入日期的TEdit类型的控件DateInput，下面所示代码即为对其进行验证的主要部分。

try

StrToDate (DateInput); //使用日期转换函数

except

on E: EConvertError do

begin

Application.MessageBox('无效的日期！','提示信息',MB_ICONINFORMATION+MB_OK);

//将此控件设置为输入焦点，并返回输入窗体

DateInput.SetFocus;

exit;

end;

end;

//其它操作

……

原理说明：通过使用函数StrToDate，并在转换出错时（即用户输入的日期无效，如1997.17.23）捕获异常信息向用户报错，并将输入焦点置于DateInput控件上。

如果你是一个好的程序员，相信你一定会举一反三，充分利用开发平台提供的各种函数及功能设计出既能满足需求又短小精悍的程序的。