Надо чтобы в TEdit можно было вводить только цифры, а если

← →
новичок_из_сыктывкара © (2004-03-25 20:05) [0]

Надо чтобы в TEdit можно было вводить только цифры, а если присутсвуют буквы то вывести сообщение об ошибке!!Помогите пожайлуста..подскажите способ...как сделать что б "отлавливались буквы"

← →
Rouse_ © (2004-03-25 20:18) [1]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ["1".."9"]) then begin Key := #0; ShowMessage("Обана !!! БукЫвка :)"); end; end;

---
Желаю успехов

← →
новичок_из_сыктывкара © (2004-03-25 20:21) [2]

ага...

← →
новичок_из_сыктывкара © (2004-03-25 20:22) [3]

а вот если user допустил отепчатку то как ему стереть это (я имею ввиду что клавиша bakspase работать не будет..., т.к. описали мы тольок от 1 до 9)

if not (Key in ["1".."9", #8]) then

Надо чтобы в TEdit можно было вводить только цифры, а если Найти похожие ветки