Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 30.12.2009, 17:48
MrBadge MrBadge вне форума
Прохожий
 
Регистрация: 30.12.2009
Сообщения: 28
Репутация: 10
По умолчанию Вопрос ...

Как сделать так, чтобы вводить можно было только значения типа Integer в какую-нибудь форму? ... маски не помогают(
Ответить с цитированием
  #2  
Старый 30.12.2009, 18:10
Аватар для TOJluK
TOJluK TOJluK вне форума
Местный
 
Регистрация: 25.02.2009
Адрес: Минск
Сообщения: 551
Версия Delphi: 2007
Репутация: 110
По умолчанию

Код:
if not (Key in ['0'..'9', #8]) then  // если Key не цифра или backspase
   Key := #0;  // делаем пустой
Ответить с цитированием
  #3  
Старый 30.12.2009, 18:22
MrBadge MrBadge вне форума
Прохожий
 
Регистрация: 30.12.2009
Сообщения: 28
Репутация: 10
По умолчанию

Но это же все равно будет считаться стринговой переменной и эти ограничение как маска ...
Ответить с цитированием
  #4  
Старый 30.12.2009, 18:28
Asinkrit Asinkrit вне форума
Местный
 
Регистрация: 29.10.2009
Сообщения: 446
Репутация: 271
По умолчанию

Есть компоненты типа TSpinEdit, TdxSpinEdit скорее всего именно то, что тебе надо.

Последний раз редактировалось Asinkrit, 30.12.2009 в 18:40.
Ответить с цитированием
  #5  
Старый 30.12.2009, 18:32
MrBadge MrBadge вне форума
Прохожий
 
Регистрация: 30.12.2009
Сообщения: 28
Репутация: 10
По умолчанию

В общем, ситуация такая: есть некое поле, в которое пользователь должен ввести целое число (с ограничениями все нормально)) ... но при вводе любого символа в Edit, все будет являться текстом ... а мне потом нужно приравнять то, что ввел кто-то к переменной Integer и в этом то все проблема ...
Ответить с цитированием
  #6  
Старый 30.12.2009, 18:46
Asinkrit Asinkrit вне форума
Местный
 
Регистрация: 29.10.2009
Сообщения: 446
Репутация: 271
По умолчанию

Непонятно мне в чем проблема у тебя) установи вышеназванные компоненты, в них число будет и числом, и текстом, либо отробатывай ситуацию, когда пользователь не то вводит, есть к примеру хорошая функция
Код:
function TryToStrToInt(const S:String; out Value:Integer):boolean;
к примеру, когда пользователь жмет получить результат, ты делаешь проверку,
Код:
if TryStrToInt(Edit1.text, N) then ;//что-то считаем
  else ShowMessage('Введите правильно число!');

Последний раз редактировалось Asinkrit, 30.12.2009 в 19:12.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 04:02.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025