简单点用
try
strtodate();
except
showmessage('不是日期');
exit;
end;
try
strtodate();
except
showmessage('不是日期');
exit;
end;
解决方案 »
- 厚颜紧急求助!!!delphi7+mapx5.02问题。
- 怎样知道托盘中已存在某个应用程序?
- dbgrid显示SQL2000的文本格式的内容时不能正常显示
- 找不到可安装的ISAM 是什么意思?怎么解决?
- 如何将下面的简单的文件读写代码改成同样功能的流的读写?主要考虑到大的日志LOG文件还采用一行一行的读写效率太低了。谢谢
- 一个不可失意的兼容问题(在线等侯)
- 菜鸟想问:控件的dragover,dragdrop,dockover,dockdrop事件怎么触发,有什么用,请高手们说明并举个例子吧!
- 如何使popmenu的项menuitem不都显示出来?
- 数据库连接(ado)
- 我爱delphi
- 请问如何安装第三方控件
- 如何将一个pchar类型赋值给字符数组?
Val(trim(dataset.FieldByName('Height').AsString), num, Code);
if code<>0 then
begin
showmessage(‘不是数字’);
abort;
end;
你可以将上面判断数字的话改成判断日期即可。
if code<>0 then
begin
showmessage(‘不是数字’);
raise exception.create('error date !')
end;