이런.. 얼마전에 제가 격었은 것을 질문하셨군요?
방법은 다음과 같습니다..
Calrendar의 Month가 변경될시에..
잘못되면 EConvertError 예외가 발생하죠..
제 프로그램에서는 처리했던 코드만을 아래에 보여드리자면..
try
Calendar1.Month := StrToIntDef(Edit1.Text, Edit1.Tag);
except
on EConvertError do Calendar1.Day := LastDayOfMonth[Calendar1.Month];
end;
그리고..
LastDayOfMonth: array [1..12] of Integer = (31, 28, 31, 30, 31, 30,
31, 31, 30, 31, 30, 31);
이상입니다. 적절한 답변 되었길 빌며...
|