마스크에디트에서 영문 두글자만 입력이 되도록 해놓은 상태입니다.
두자리 중에 한자리만 비워져 있어도 버튼이 실행이 되지 않도록 하고 싶은데요
현재 짜여 있는 코드는 이렇게 되어 있는데요.
procedure Tfrm_main.btn_inputClick(Sender: TObject);
begin
if not((trim(dateEdt_normal.Text)='') or (Trim(mEdt_input.Text)='')) then //날짜나 문자 중 하나라도 공백이 없어야 실행되도록
begin
ShowMessage('dd');
end;
end;
날짜에디트와 마스크에디트 둘 다에 공백이 없어야 if문을 실행하겠다라는 문장을 작성하기는 했는데
위와 같이 작성 했을 시에는 마스크에디트에 아무것도 없어야만 이프문이 정상적으로 실행이 되고,
빈칸 두개 중에 한칸만 비워놓고 실행을 해봤을 시는 에러가 뜨면서 프로그램이 사망하더군요...
두 빈 칸 중 한 칸만 비어있어도 실행이 안되게 하려면 (Trim(mEdt_input.Text)='') 이부분을 바꿔야 할 것 같은데 어떻게 조건을 줘야 할지 잘 모르겠네요. 도와주세요!
|