Как запретить ввод всего алфавита и логических знаков "=+-*/"

[prikolist]

Здравствуйте! Подскажите пожалуйста Как запретить ввод всего алфавита и логических знаков "=+-*/", в поле Edit1 используя Key. Может для этого существуют какие-то функции?
Что не вводить так довольно громоздко:
if (Key == 'a','b','c','d','e','f','g','h','i' ,'j','k','l','m','n','o','p','q','r ','s','t','u','v','w','x','y','z',' +','-','*','/','==')
{
Key = 0;
}

[wyvern]

Имхо - надо ловить сообщение (вроде EN_CHANGE) и руками поправлять содержимое...

[Sazary]

Вот примерчик набросал.
Не позволяет вводить строчные буквы латинского алфавита.
Используется обработчик onChange

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
char c;  // здесь будет введенный символ
AnsiString s;  // а это будет вся строка из эдита
s = Edit1->Text;   // читаем строку в s
if(Edit1->Tag == 1) return;  // Если флаг = 1, то есть событие onChange вызвано самой функцией,
   // то выходим
Edit1->Tag = 1;  //  иначе устанавливаем флаг (таким образом сказав, что функция начала обработку)
c = s[s.Length()];  // в c заносим последний символ из эдита (как раз тот, что только что ввели
if ((c>='a' && c<='z'))   // если это строчная буква алфавита
 {
  s[s.Length()] = NULL;    // ...то укорачиваем строку на 1 символ
  Edit1->Text = s;   // и переносим ее в Эдит
 }

Edit1->Tag = 0;  // Возвращаем флаг в 0, чтобы можно было дальше обрабатывать символы
Edit1->SelStart = Edit1->Text.Length();   // ставим курсор в конец Эдита
Edit1->SelLength = 0;
}

[prikolist]

Напишите пожалуйста пояснение пару предложений, о вашем коде.
Например делается то-то, после того-то. Заранне благодарю.

[Sazary]

Добавил комменты в листинг.

[Ch00kan0ff]

а если в обработчике OnKeyPress написать

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{if ((Key >= '0') && (Key <= '9') || Key == VK_BACK) {}
        else
        if ((Key == '.') || (Key == ','))
             {if(Key=='.')
               Key=',';
             }
             else
              {Key = 0;
               Beep();
              }

разве не годится? у меня вводит только цифры и запятую. Или мож я че не так понял?

[Ivan_32]

if(Digit > 0x29 && Digit<0x3A)AddDigittoEdit(Digit); - это скажем так псевдокод - надеюсь все понятно из него.
0x30 = '0'
0x39 = '9'

[MaTBeu]

Можно еще использовать функцию isalpha() или еще проще isdigit(). Первая проверяет, является ли символ буквой, а вторая - проверяет является ли символ цифрой.

[prikolist]

isdigit(). и isalpha() интересно, как же их использовать, просто я впервые о них слышу.

Пожалуйста, кто писал вот это

if(Digit > 0x29 && Digit<0x3A)AddDigittoEdit(Digit); - это скажем так псевдокод - надеюсь все понятно из него. 
0x30 = '0'
0x39 = '9'

Дайте пояснение,что оно делает, я как новичок, только понял что 0х29 - это помоему какоето 16 -ричное число.
Этот кусок AddDigittoEdit(Digit) также не понятен.
Напишите также смысл, этого куска кода. Зараннее благодарю. Извините что много вопросов.

[Sazary]

isdigit(). и isalpha() интересно, как же их использовать, просто я впервые о них слышу.

isdigit возвращает ненулевое значение, если аргумент - цифра
isalpha - то же самое, только если аргумент - буква.
Вот еще один пример:

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
if(Edit1->Tag==1) return;
Edit1->Tag = 1;
if(!isdigit(Edit1->Text[Edit1->Text.Length()]))
 {
  Edit1->SelStart = Edit1->Text.Length()-1;
  Edit1->SelLength = 1;
  Edit1->SelText = "";
 }
Edit1->Tag = 0;
}

И совсем короткий для keyPress:

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if(!isdigit(Key)) Key = 0;
}

prikolist
Ivan_32 привел псевдокод, а не код на сях.
AddDigittoEdit(Digit); - дословно "добавить цифру в эдит". То есть использовать соответствующую функцию.