Q&A

  • Edit박스에 입력 시점 부터 "2바이트" 글자가 입력 되지 않도록 하기 위한 방법은?
edit박스에 영문이름을 입력하려고 하는데요..
입력 시점 부터 "2바이트" 글자가 입력 되지 않도록 하기 위해서는 어떻게 해야 하나요?
2  COMMENTS
  • Profile
    신동묵 2002.05.13 23:30
    Edit Box의 MaxLength 속성 값을 4로 하면 될것 같은 데요...
    원하시는 답변이 아닌가요?
    좀 더 자세히 설명을 해주시면 답변을 하기가 좋을것 같군요..
    즐코 하세요...^^;

  • Profile
    머슴 2002.05.13 23:11

    --이렇게 하니까는 일단은 됩니다....

    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    Var
      Accept :Boolean;
    begin
       Accept := Key in ['A'..'Z', 'a'..'z',#8, #13, #127];
       if Not Accept then Key := #0;
    end;

    그런데 한글이 2byte문자니까... 한문자가 구성되기까지
    한글이 남아 있네요....

    다른 방법이 있으시면 그 방법으로 하시고요...

    일단 제 방법을 올립니다....