Q&A

  • 암호확인할때 두째자리까지는 알파벳으로 나머지 자리는 숫자를 확인할수 있는 코딩없을까요? 부탁드립니다.
보통 웹에서 암호확인하잖아요?
그런것처럼 에디트박스 한두자리는 알파벳을 확인하고 나머지 자리는 숫자로 들어온것을 확인할 수 있는 간단한 소스는 없을까요?
혼자 공부하다보니 어렵네요...해결방법이 있으시면 부탁드리겠습니다.
이 게시물을
1  COMMENTS
  • Profile
    KDDG_09 • 2003.05.01 19:01

       for i := 1 to 2 do
       begin
          if ((Copy(edit1.Text, i, 1) >= '0') and (Copy(edit1.Text, i, 1) <= '9')) then
          begin
             Showmessage('알파벳이 아니네요..');
             Exit;
          end;
       end;

       for i := 3 to length(Edit1.Text) do
       begin
          if ((Copy(edit1.Text, i, 1) < '0') or (Copy(edit1.Text, i, 1) > '9')) then
          begin
             Showmessage('숫자가 아니네요..');
             Exit;
          end;
       end;
←First Page
666 667 668 669 670 671 672 673 674 675
Last Page→
한델 로그인 하기