void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key)
{
    if (Edit1->Text.Length() == 5 || Edit1->Text.Length() == 6 )
    {
        if (Key < '0' || Key > '9')
        {
            Key = 0;
        }
    }
}


초보자 님이 쓰신 글 :
: 제목 그대로 TEdit에 10자리 data를 입력 받지만,
:  5번째, 6번째 입력값은 무조건 숫자만 받고싶어요.
:  어떻게 하죠??????
:
: 전체를 숫자로 받는다면 속성을 변경하면 쉽게 할수 있는데....
: 입력 받는 문자 중간에는....ㅠ.ㅜ
:
: ---------------------------------------------------------------
: void __fastcall TForm1::Button1Click(TObject *Sender)
: {
:    String input_data_1;
:    input_data_1 = Edit1->Text;
:
:    if (5~6번째 입력값이 숫자인 경우 ) {   //  <<==== 여기를 어떻게 해야 할지.....전혀 모르겠네요...ㅠ.ㅜ
:        MessageDlg("정상적인 DATA입니다. " , mtWarning ,TMsgDlgButtons()<<mbOK,0);
:    } else {   //5~6번째 입력값이 숫자가 아닌 경우
:       MessageDlg("5~6번째 입력 DATA는 숫자로 입력하여야 합니다. 다시 입력하세요." , mtWarning ,TMsgDlgButtons()<<mbOK,0);
:    }
: }
: --------------------------------------------------------------------
: