날짜 체크부분에서 예외처리가 되질 않습니다.
소스는 다음과 같습니다.
procedure TForm1.Button1Click(Sender: TObject);
const
CRLF = #13 + #10;
var
TempDate: TDateTime;
begin
try
TempDate := StrToDateTime('2000-09-31'); //-- 여기서 막바로 에러메세지가.....
except
on E: EConvertError do //-- 이부분이 걸리질 않아요 !
ShowMessage(E.ClassName + CRLF + E.Message);
end;
end;
델파이가 잘못 설치된건지 .......
고수님들의 조언을 부탁합니다.
|