Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> MaskEdit, Последовательность ввода 
:(
    Опции темы
primus
  Дата 3.11.2002, 19:50 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Хочу сделать "защиту от дурака" при вводе информации в форму:
Нужно чтоб вводились только цифри и я решил использовать MaskEdit, но тут же вылезла новая проблема: цифры которые вводишь можно вводить как угодно (можно делать пробелы можду цыфрами, да и просто начинать вводить не с начала строки, что при подсчете вызывает ошибку :( ), а я хочу чтоб они вводились последовательно с первого символа!!!!!

Очень жду ответа!!!!!!!!
Заранее Спасибо!!!!!!!!!!
  Вверх
Dayana
Дата 3.11.2002, 20:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 352
Регистрация: 6.10.2002
Где: Тель-Авив

Репутация: 2
Всего: 4



В свойстве EditMask установи символы 0 столько сколько нужно. 0  означает, что на месте этого символа можно вводить только цифры, и никакие другие символы.
PM MAIL ICQ   Вверх
Medved
Дата 4.11.2002, 00:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154



Из справки:

Цитата

Character Meaning in mask

! If a ! character appears in the mask, optional characters are represented in the EditText as leading blanks. If a ! character is not present, optional characters are represented in the EditText as trailing blanks.
> If a > character appears in the mask, all characters that follow are in uppercase until the end of the mask or until a < character is encountered.
< If a < character appears in the mask, all characters that follow are in lowercase until the end of the mask or until a > character is encountered.

<> If these two characters appear together in a mask, no case checking is done and the data is formatted with the case the user uses to enter the data.
\ The character that follows a \ character is a literal character. Use this character to use any of the mask special characters as a literal in the data.
L The L character requires an alphabetic character only in this position. For the US, this is A-Z, a-z.
l The l character permits only an alphabetic character in this position, but doesn't require it.

A The A character requires an alphanumeric character only in this position. For the US, this is A-Z, a-z, 0-9.
a The a character permits an alphanumeric character in this position, but doesn't require it.
C The C character requires an arbitrary character in this position.
c The c character permits an arbitrary character in this position, but doesn't require it.
0 The 0 character requires a numeric character only in this position.
9 The 9 character permits a numeric character in this position, but doesn't require it.

# The # character permits a numeric character or a plus or minus sign in this position, but doesn't require it.
: The : character is used to separate hours, minutes, and seconds in times. If the character that separates hours, minutes, and seconds is different in the regional settings of the Control Panel utility on your computer system, that character is used instead.
/ The / character is used to separate months, days, and years in dates. If the character that separates months, days, and years is different in the regional settings of the Control Panel utility on your computer system, that character is used instead.

; The ; character is used to separate the three fields of the mask.
_ The _ character automatically inserts spaces into the text. When the user enters characters in the field, the cursor skips the _ character.



--------------------
http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...
PM MAIL WWW ICQ Skype GTalk   Вверх
CLIPSA
Дата 17.11.2006, 02:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 6.10.2006

Репутация: нет
Всего: 2



Так как же всётаки сделать чтоб  вводились последовательно с первого символа ? 
Допустим, если ни одного символа не введено, то каретка должна быть только и только вначале, Если ввели один символ, то каретка перемещается на вторую позицию ( т.е. каретку теперь можно меремещать на первую и на вторую поизицию). Если второй символ ввели то каретка переместилась на третью позизию ( т.е. каретка теперь может находится на позиции 1,2 и 3). и т.д.

Вобщем  каретка должна находится только там где введён символ.  А не где попало (в средине , в конце) когда не введено не одного символа.

Как это сделать  smile

Это сообщение отредактировал(а) CLIPSA - 17.11.2006, 02:42
PM MAIL   Вверх
Guedda
Дата 17.11.2006, 08:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78



Возьми простой Edit, и в OnKeyPress пропиши:
Код

if (Key not in ['0'..'9', #8]) then Key := #0;

Всё. Проблема решена.


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Sunvas
Дата 17.11.2006, 13:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89



Цитата(Guedda @  17.11.2006,  08:02 Найти цитируемый пост)
Возьми простой Edit, и в OnKeyPress пропиши:

    
Код

if (Key not in ['0'..'9', #8]) then Key := #0;    


Всё. Проблема решена.

Поправлю немножко:
Код

if not (Key in ['0'..'9', #8]) then Key := #0;



--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
CLIPSA
Дата 17.11.2006, 19:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 6.10.2006

Репутация: нет
Всего: 2



МНе нужно чтоб в эдит было например вот так  "99-9-999". Т.е.  д Должны быть две четрочки "-" изначально. 
PM MAIL   Вверх
Rodman
Дата 17.11.2006, 19:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122



Попробуй использовать
Код

if(TryStrToInt(MaskEdit.Text, IntVAR))then//или if(TryStrToFloat(MaskEdit.Text, IntVAR))then
  Showmessage('OK')
else
   Showmessage('не OK');

PM MAIL WWW Skype GTalk YIM MSN   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1231 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.