IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Как разрешить ввод только чисел?
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 53
Пол: Мужской
Реальное имя: Веселовский Пётр Николаевич

Репутация: -  0  +


Есть editbox - как запретить ввод символов, отличных от цифр? Точнее по нажатию на кнопку button, если в editbox'е введено не вещественное число, то появляется MessageBox.
Заранее Спасибо!


--------------------
Money, hoes, cars and clothes
That's how all my niggaz know
Blowin dro, 24's
That's how all my niggaz roll...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Кто мешает сделать так, например:
procedure TForm1.Button1Click(Sender: TObject);
var f: double;
begin
try
f := StrToFloat(edit1.Text);
except
ShowMessage('error: not a float number !!!');
end;
end;
?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 53
Пол: Мужской
Реальное имя: Веселовский Пётр Николаевич

Репутация: -  0  +


Спасибо за оперативность! Все работает.


--------------------
Money, hoes, cars and clothes
That's how all my niggaz know
Blowin dro, 24's
That's how all my niggaz roll...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


code warrior
****

Группа: Пользователи
Сообщений: 484
Пол: Мужской
Реальное имя: Славен

Репутация: -  8  +


Существует такой компонент MaskEdit - там есть шаблоны ввода.
Используй его.

Сообщение отредактировано: hardcase -


--------------------
ИзВ ин ИтЕ зА нЕ рОв НЫй П оч ЕРк
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






hardcase, прежде всего - есть задание:
Цитата
Есть editbox - как запретить ввод символов


Если я тебе в ответ на твой пост про консоль напишу: чего ты Win пользуешь? Есть же *nix-ы, ставь и пользуйся - там проще - тебя это сильно порадует?
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 18.12.2017 11:54
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"