|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Элемент формы Edit
В общем проблема вот в чем: Как в Делфи сделать так чтобы в элемент формы Edit можно было вводить только числовые значения, и потом их присваивать переменной типа Word?
|
#2
|
||||
|
||||
Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not(Key in ['0'..'9',Chr(8)]) then Key:=#0; end; а потом: Код:
var MyNumber:WORD; begin MyNumber:=IntToStr(Edit1.Text); end; |