Q&A

  • 문자열 비교하는것좀 봐주세요?
아래처럼 비교를 해봤는데 잘 안되네요..
그냥 넘어가 버립니다.
처음 생각에서는 copy(Edit1.text, 1, 3) 이 알파벳이냐를 비교 하고 싶었는데..
여러가지 방법을 동원해 봤는데, 잘 안되더라구요.
그래서 아래처럼 했는데도 마찮가지네요.
고수님들께서 답변좀 해주세요.
그럼 수고하세요.

       If ((uppercase(copy(Edit1.Text, 1, 1)) >= 'A') OR
           (Uppercase(Copy(Edit1.text, 1, 1)) <= 'Z')) then
          Exit
       Else
         Begin
           Begin
             Showmessage('잘못 입력 하셨습니다.');
             Edit1.SetFocus;
             Exit;
           End;
             Edit1.SetFocus;
         End;
이 게시물을
1  COMMENTS
  • Profile
    김경록 • 2002.05.25 19:15
    In을 써보시는게..

    If UpperCase(Copy(Edit1.Text, 1, 1))[1] in ['A'..'Z', 'a'..'z'] Then
    Begin
            Exit;
    End
    Else Begin
           ShowMessage('뭔가 에러났는데여~~~');
    End;
←First Page
1006 1007 1008 1009 1010 1011 1012 1013 1014 1015
Last Page→
한델 로그인 하기