try
……
Except
on exception
begin
if e.message in “'1999-9-13'is not avalid date and time” then
ShowMessage('不是时间类型。');
end
ShowMessage('不是时间类型。');
end
解决方案 »
- 使用WebBrowser控件,如何获取当前页面,当前鼠标所在图片【或文字】的连接地址?
- 请问:var,type,function,procedure,public,private 这些都是什么意思? 有什么作用?
- 如何取得浏览器当前地址栏中的内容?
- 谁发 dsgnintf 谁得50分
- delphi7.0中如何判断TQuery中的一个字段的值为空。
- 请帮我分析一下为什么会出现这样的错误提示:Access vidation at address 004a36B2 in modale'**.exe'read of address FFFFFFFF
- 我用了adostoredproc控件,来运行一个储存过程,他返回的记录集我要怎么显示在dbgrid中阿
- 我想学习Delphi,大家帮忙推荐一本好书!
- 如何实现OFFICE XP中的菜单和框体的显示效果?
- FMX项目一个ListBox(静态设计),其ListBoxItem都是按需要动态创建并用ListBox1->AddObject(lbi);添加的,每次
- 怎样屏蔽数据库的错误消息,自己写汉语的错误消息
- 究竟如何才能真正地利用DELPHI做一些东西呢? 有大侠愿意收徒弟么?
try
strtodatetime(dbedit1.text);
except
showmessage('唉,你又输错了!');
end;
或这样:
try
query1.fieldbyname('myfield').asdatetime;
except
...
begin
if (E is EConvertError ) and (POS('date',e.message)<>0) then
Application.MessageBox ('日期格式输入错误,正确格式为 "yyyy-mm-dd "',
'信息提示',MB_OK+MB_iconexclamation)
else
Application.MessageBox (Pchar(e.message),'信息提示',MB_OK+MB_iconexclamation)
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := myconvert;
end;end.
设置你控制面板里的时区设置中的 短日期设置为 mm-dd-yyyy 先
try
strtodatetime(dbedit1.text);
except
begin
showmessage('唉,你又输错了!');
abort; //这样就屏蔽了,但要在delphi外面运行才看的到。
end;
end;
只要一离开DBEDIT它就抱数据库的错
只要一离开DBEDIT它就抱数据库的错
怎么办呢