Q&A

  • MaskEdit 비교 검색하기가 잘 안됩니다.???
아래의 내용은 MaskEdit를 잘라서 사용한것인데요.

비교 검색을 하면, Maskedit에 아무것도 안들어 있었는데도, "- -" 들어 가 있는것으로 나옵니다.

그것을 제외 할려고 자릿수까지 잡아서 비교를 했는데도 계속 들어가네요.

어떻게 비교를 해야 되죠. ???

고수님들 부탁 드리겠습니다.

수고하세요.



if copy(MaskEdit1.text, 1,4) = '' then

begin

showmessage('년도를 입력하세요.');

MaskEdit1.Setfocus;

end

else

if copy(MaskEdit1.text, 6,2) ='' then

begin

showmessage('월을 입력 하세요.');

MaskEdit1.Setfocus;

end

else

if copy(MaskEdit1.text, 9,2) = '' then

begin

showmessage('일을 입력하세요.');

MaskEdit1.Setfocus;

end;



2  COMMENTS
  • Profile
    jing 2001.10.30 23:12
    정규성 wrote:

    > 아래의 내용은 MaskEdit를 잘라서 사용한것인데요.

    > 비교 검색을 하면, Maskedit에 아무것도 안들어 있었는데도, "- -" 들어 가 있는것으로 나옵니다.

    > 그것을 제외 할려고 자릿수까지 잡아서 비교를 했는데도 계속 들어가네요.

    > 어떻게 비교를 해야 되죠. ???

    > 고수님들 부탁 드리겠습니다.

    > 수고하세요.

    >

    > if copy(MaskEdit1.text, 1,4) = '' then

    > begin

    > showmessage('년도를 입력하세요.');

    > MaskEdit1.Setfocus;

    > end

    > else

    > if copy(MaskEdit1.text, 6,2) ='' then

    > begin

    > showmessage('월을 입력 하세요.');

    > MaskEdit1.Setfocus;

    > end

    > else

    > if copy(MaskEdit1.text, 9,2) = '' then

    > begin

    > showmessage('일을 입력하세요.');

    > MaskEdit1.Setfocus;

    > end;

    >



    MaskEdit의 EditMask속성을 !9999-!99-99;0;_ 로 바꾸시면 될겁니다.

    화면에 '____-__-__'에서 '_'가 안보이게 하려면 '!9999-!99-99;0; '뒤에 스페이스키

    이렇게 하시면 됩니다.

  • Profile
    최석중 2001.10.30 05:49
    초보가 이런 말 해도 되나 모르겠내요...

    EditText 속성을 사용해서 잘라보면 안되나요?

    Text와 EditText 차이를 자세히는 모르지만,

    Text말고도 다른 것들도 있던데...





    정규성 wrote:

    > 아래의 내용은 MaskEdit를 잘라서 사용한것인데요.

    > 비교 검색을 하면, Maskedit에 아무것도 안들어 있었는데도, "- -" 들어 가 있는것으로 나옵니다.

    > 그것을 제외 할려고 자릿수까지 잡아서 비교를 했는데도 계속 들어가네요.

    > 어떻게 비교를 해야 되죠. ???

    > 고수님들 부탁 드리겠습니다.

    > 수고하세요.

    >

    > if copy(MaskEdit1.text, 1,4) = '' then

    > begin

    > showmessage('년도를 입력하세요.');

    > MaskEdit1.Setfocus;

    > end

    > else

    > if copy(MaskEdit1.text, 6,2) ='' then

    > begin

    > showmessage('월을 입력 하세요.');

    > MaskEdit1.Setfocus;

    > end

    > else

    > if copy(MaskEdit1.text, 9,2) = '' then

    > begin

    > showmessage('일을 입력하세요.');

    > MaskEdit1.Setfocus;

    > end;

    >