Q&A

  • 첫글자가 숫자 ,특수문자가 들어가지 않게 하려면?
안녕하세요! 델파이 초보입니다.

아이디를 입력받으려고 하는데 ,,, 아이디 첫글자가 숫자,특수문자면 안되거든요

체크할 방법이 있는지 알려주세요

2  COMMENTS
  • Profile
    stoney 2001.10.05 08:18
    이런 식으로 하면 될꺼 같네요.



    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

    begin

    if Edit1.Text = '' then begin //첫글자인경우

    if not (key in ['a'..'z','A'..'Z']) then begin //영문자가 아닌 경우

    MessageDlg('아이디의 첫글자는 숫자 및 득수문자는 불가능합니다.', mtWarning, [mbOK], 0);

    key := #0;

    end;

    end;

    end;



    초보 wrote:

    > 안녕하세요! 델파이 초보입니다.

    > 아이디를 입력받으려고 하는데 ,,, 아이디 첫글자가 숫자,특수문자면 안되거든요

    > 체크할 방법이 있는지 알려주세요

  • Profile
    강인규 2001.10.05 04:16
    스트링의 첫번째 문자는

    var

    S : String;

    이라 하면



    S[1] 하시면 됩니다..





    숫자 특수문자가 안된다면 알파벳만 된다는 건가요?

    머 간단히 만들면



    function IsAlpha(Param : Char) : Boolean;

    begin

    Result := Pos(Param, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ') <> 0;

    //소문자도 넣으셔야 합니다..ㅡ.ㅡ;;

    end;



    이런식이면 되겠군요...



    델파이로 테스트해보지는 않았습니다.. 혹시 에러가 나면 잡으세요..^-^;

    즐프하세여



    초보 wrote:

    > 안녕하세요! 델파이 초보입니다.

    > 아이디를 입력받으려고 하는데 ,,, 아이디 첫글자가 숫자,특수문자면 안되거든요

    > 체크할 방법이 있는지 알려주세요