如何捕捉异常！！

[flsll521]

var
d:Tdate;
begin
d:=strtodate('08-11-20aaaa');
showmessage(datetostr(d));
end;
这样写就会出现 class EConvertError with message ''08-11-20aaaa' is not a valid date'. Process stopped.
这个异常！！

我怎样捕捉这个异常！！

如果是有效的日期就 继续执行
如果是无效的日期就 直接退出程序！！

[madyak]

var
d:Tdate;
begin
try
d:=strtodate('08-11-20aaaa');
showmessage(datetostr(d));
exception
Application.Terminate;
end;
end;
d:=strtodate('08-11-20aaaa');可以改为
d:=VarToDateTime('08-11-20aaaa');

[flsll521]

象上面那样写编译不过去的
exception 应该为except
还会出现那样的异常！！

[madyak]

不好意思,exception写错了,应该改为except

[madyak]

直接运行EXE就没事了,不要在IDE里运行

[flsll521]

哦 是这样的啊！！
谢谢了啊 ！！！