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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ограничение на вод только цифр в поле 
V
    Опции темы
zhuchok
Дата 21.11.2010, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: 1
Есть следующая процедура, ограничивающая поле для ввода только цифр
Код

var
  i:integer;
procedure TForm1.DBEdit5Change(Sender: TObject);
begin
For i:=1 to Length(DBEdit5.Text)
do begin
if DBEdit5.Text[i] in ['0'..'9'] then
else
begin
Application.MessageBox('Данное поле предназначено только для ввода цифр', 'Ошибка ввода!', MB_ICONWARNING);
DBEdit5.Text:=copy(DBEdit5.Text,1,i-1);
end;
end;
end;

Но так писать некорректно. 
При написании возникли следующие проблемы: 
перед in ['0'..'9'] никак не желает ставится отрицание, пришлось извращаться и писать обработку в else вместо then
После удаления некорректного символа курсор перемещается в начало DBEdit, что не хорошо
Помогите исправить, пожалуйста
И ещё нужно чтобы после ввода 4 символов автоматически вставлялся пробел. Как это сделать?
PM MAIL ICQ   Вверх
guestl
Дата 21.11.2010, 16:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
1. if not(DBEdit5.Text[i] in ['0'..'9']) then

2. прежде чем городить такой обработчик мощный, попробуй TMaskEdit с маской "0000;1;_", например.
PM MAIL   Вверх
zhuchok
Дата 21.11.2010, 16:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: 1
Цитата(guestl @  21.11.2010,  16:15 Найти цитируемый пост)
1. if not(DBEdit5.Text[i] in ['0'..'9']) then

спасибо, помогло
Цитата(guestl @  21.11.2010,  16:15 Найти цитируемый пост)
2. прежде чем городить такой обработчик мощный, попробуй TMaskEdit с маской "0000;1;_", например.

Это конечно замечательно, но это поле подключено к базе данных, и не придется ли потом городить мощный обработчик чтобы подключить к TMaskEdit столбец БД?



Это сообщение отредактировал(а) zhuchok - 21.11.2010, 16:24
PM MAIL ICQ   Вверх
guestl
Дата 21.11.2010, 16:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Если придется делать мощный обработчик поля ввода - значит, есть ошибка в архитектуре программы. Попробуй вообще не использовать TDBEdit и тп. Можно самому формировать SQL запрос к базе на основании ввода пользователя.
PM MAIL   Вверх
zhuchok
Дата 21.11.2010, 19:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: 1
Цитата(guestl @  21.11.2010,  16:34 Найти цитируемый пост)
Если придется делать мощный обработчик поля ввода - значит, есть ошибка в архитектуре программы. Попробуй вообще не использовать TDBEdit и тп. Можно самому формировать SQL запрос к базе на основании ввода пользователя.

Мы видимо друг друга не поняли. Просто если использовать TMaskEdit к базе прийдется подключаться ручками. Ведь у него нет возможности подключения через datasource. Или я ошибаюсь?
PM MAIL ICQ   Вверх
Данкинг
Дата 21.11.2010, 20:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(zhuchok @  21.11.2010,  15:10 Найти цитируемый пост)
Есть следующая процедура, ограничивающая поле для ввода только цифр

А не проще поле в таблице сделать числовым? smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
zhuchok
Дата 22.11.2010, 05:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: 1
Цитата(Данкинг @  21.11.2010,  20:27 Найти цитируемый пост)
А не проще поле в таблице сделать числовым?  

Не проще. На столбце ограницение а на поле ввода нет. Возникает исключительная ситуация которую надо обработать
PM MAIL ICQ   Вверх
superVad
Дата 22.11.2010, 10:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 7
Всего: 15
Если стоит jvcl то можно заюзать TJvDBSpinEdit.
PM MAIL   Вверх
zhuchok
Дата 22.11.2010, 11:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

Если стоит jvcl то можно заюзать TJvDBSpinEdit.

Нет не стоит. Но спасибо за информацию.
PM MAIL ICQ   Вверх
XperT
Дата 22.11.2010, 14:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 4
По моему значительно проще не изобретать велосипед и пользоваться дедовскими методами:
Код

procedure TForm1.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in ['0'..'9']) then key := #0;
end;
PM MAIL   Вверх
zhuchok
Дата 22.11.2010, 16:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: 1
Цитата(XperT @  22.11.2010,  14:36 Найти цитируемый пост)
1:2:3:4:procedure TForm1.DBEdit5KeyPress(Sender: TObject; var Key: Char);begin  if not(Key in ['0'..'9']) then key := #0;end;

Огромное спасибо! Этого я собственно и добиваласьsmile
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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