Содержание | Последнее обновление: 14.02.2004 |
Как сделать, чтобы в TEdit можно было вводить только числа? Автор: OlegGG if ((Key >= '0') && (Key <= '9')) {} // цифры else if (Key == 8) {} // <- else if ((Key == '.') || (Key == ',')) // запятая { if (((TEdit*)Sender)->Text.Pos(DecimalSeparator)!=0) // если запятая уже есть Key = 0; else // если ещё нет Key = DecimalSeparator; } else Key = 0; // не цифраP.S. DecimalSeparator - глобальная переменная - разделитель целой и дробной части. |