如何解决TRY 。。。EXCEPT问题?
wzs 2000-09-06 10:55:00 我自己编一个函数判断是DATE有效时却不执行EXCEPT中的语句这是为何大侠帮我吧!!
函数:
function chk_date_valid(str:string):boolean;
var
TempDate: TDateTime;
begin
try
TempDate := StrToDateTime(str);
result:=true;
except
on EConvertError do
result:=false;
end;
end;
调用时:
if chk_date_valid(maskedit1.text) then ...{这时maskedit1.text=' - - '}或='2000-13-13'等等它只执行到tempdate:=strtodatetime(str)就报错而不跑到EXCEPT中去这是为何?
错误显示:
project rs_system.exe raised exception class Econverterror with message" - - "is not a valid date and time'.process stopped.use step or run to continue.