Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.63/104:

ArtemK

1 / 1 / 4

Регистрация: 07.10.2012

Сообщений: 123

Как запретить ввод в Edit букв?

06.12.2012, 14:55. Показов 21686. Ответов 1

Метки delphi запрет ввода букв в edit, delphi запретить ввод букв, запрет ввода букв (Все метки)

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm5.Button1Click(Sender: TObject);
var a,b,i:integer;
s:real;
begin
a:=strtoint(edit1.text);
s:=0;
i:=1;
edit1.Text:=' ';
if a<0 then begin
label1.Caption:='Это отрицаиельное число';
end else begin
while i<=a do begin
s:=s+sin(i);
i:=i+1;
end;
label1.Caption:='Сумма равна: '+floattostrf(s,fffixed,3,2);
end;
end;

Лучшие ответы (1)

Сообщение: #3811852

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

06.12.2012, 14:55

Ответы с готовыми решениями:

Как в delphi в Edit запретить ввод именно русских символов?
Как в delphi в Edit запретить ввод именно русских символов?

Как запретить ввод цифрого разделителя (decimalseparator) первым символом в поле edit (Delphi)?
имеется компонент TEdit, не пустой, фильтруется на ввод символов с помощью EditKeyPress, перед изменением получает фокус, как сделать,...

Как запретить ввод букв (разрешить только цифры) в Memo?
как запретить ввод букв в memo? что бы можно было вводить только цифры

FIL

Модератор

3492 / 2614 / 742

Регистрация: 19.09.2012

Сообщений: 7,977

06.12.2012, 14:58

Сообщение было отмечено ArtemK как решение

Решение

Delphi
1
2
3
4
5
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', #8]) then
    Key := #0;
end;

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

06.12.2012, 14:58

Помогаю со студенческими работами здесь

Как в окно Edit'а не допустить ввод букв?
как выполнить защиту от ввода в edit букв? и чтоб при этом выдавалось сообщение

Запретить ввод нецифровой информации в Edit
У меня такая задача, мне надо вводить в Edit данные, но данные могут быть только числовыми. Как можно запретить ввод текстовой информации в...

Запретить ввод в Edit символов, кроме цифр и знаков арифметических операций
в программировании чайник. Написал калькулятор столкнулся с такой проблемой.

Не работает ввод русских букв в Edit
Всем доброго времени суток! При вводе в Edit мне нужно, чтобы работали только русские буквы. Сделал следующее: procedure...

Как запретить в Edit копировать с буфера обмена?
На OnKeyPress кинул код: if not ( key in ) then begin key:=#3 ; ShowMessage ('бла .. бла .. бла!') ; end; Только...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

Наверх