поле Edit записать int

[Krok27]

2Oleg0405

void __fastcall TMainForm::Edit1KeyPress(TObject *Sender, System::WideChar &Key)
{
Set<char, '0', '9'> Dig;
Dig <<'0' <<'1'<<'2'<<'3'<<'4'<<'5'<<'6'<<'7'<<'8'<<'9';
if(!Dig.Contains(Key))
{
    Key=0; 
    Beep();
}
}

[Oleg0405]

Гром именно эта ошибка мне не нужна , огромное спасибо Krok27 за StrToIntDef
наконец то написал

int port =9999;
if (StrToIntDef(Edit1->Text, 0))  port=Edit1->Text.ToInt();
if ( (port >= 0) && (port <= 9) ) Edit2->Text=port;
 else {
	MessageBox(this->Handle, "Введите число от 0 до 9!", "Ошибка!",
	  MB_OK | MB_ICONERROR);
	return;
  }

[Krok27]

Ну тогда уж

int port  = StrToIntDef(Edit1->Text, 0));
if ( (port > 0) && (port <= 9) ) 
{
Edit2->Text=port;
 else {
	MessageBox(this->Handle, "Введите число от 0 до 9!", "Ошибка!",
	  MB_OK | MB_ICONERROR);
	return;
  }