Length(Trim(mEdt_Input.text)) > 1

와 같은 조건이 추가되면 어떨까요 ?

김승은 님이 쓰신 글 :
: 마스크에디트에서 영문 두글자만 입력이 되도록 해놓은 상태입니다.
:
: 두자리 중에 한자리만 비워져 있어도 버튼이 실행이 되지 않도록 하고 싶은데요
:
: 현재 짜여 있는 코드는 이렇게 되어 있는데요.
:
: 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)='') 이부분을 바꿔야 할 것 같은데 어떻게 조건을 줘야 할지 잘 모르겠네요. 도와주세요!