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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проверить введеные данные, ADO mdb 
V
    Опции темы
AlanFree
Дата 1.11.2006, 17:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Вопрос не совсем по базам данных, но все же он у меня возник имеенно при разработке программы для базы данных...
На форме есть компонент Edit как заставить пользователя вводить только цыфры? Пробывал 

Код

  try
     StrToInt(txtOpt.Text);
     StrToInt(txtRozn.Text);
  except
     MessageDlg('Не верные цены!!!', mtInformation, [mbYes], 0);
     Exit;
  end;


Но ошибка толком не перехватывается...
PM MAIL   Вверх
Akella
Дата 1.11.2006, 17:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329
http://forum.vingrad.ru/topic-100414/hl/keypress/index.html
поиск ещё работает

Добавлено @ 17:36 
http://forum.vingrad.ru/index.php?showtopi...st&p=819631

Добавлено @ 17:37 
http://www.delphibasics.co.uk/RTL.asp?Name=set

Добавлено @ 17:38 
только никакого отношения ADO не имеет к проверке вводимых в TEdit символов.
PM MAIL   Вверх
AlanFree
Дата 1.11.2006, 17:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Akella,  пасибо smile 
PM MAIL   Вверх
Akella
Дата 2.11.2006, 09:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329
не забываем помечать вопрос, как решённый
PM MAIL   Вверх
AlanFree
Дата 2.11.2006, 10:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
ок
PM MAIL   Вверх
Gwire
Дата 9.4.2009, 20:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 4
smile Попробуй через обработчик событий OnChange.
Код

procedure TForm1.Edits_Change(Sender: TObject);
begin
    try
        StrToFloat( (Sender as TEdit).Text );
    except
        ShowMessage('Это не число!');
        (Sender as TEdit).SelLength:= -1;  // выделяем только что напечатаный символ
        (Sender as TEdit).ClearSelection;  // и удаляем
    end;
end;
smile  Этот метод хорошь тем, что его можна привязать к любому TEdit.
PM MAIL   Вверх
Akella
Дата 9.4.2009, 22:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329
Цитата(Gwire @  9.4.2009,  20:01 Найти цитируемый пост)
Попробуй через обработчик событий OnChange.

вообще-то теме уже три года
PM MAIL   Вверх
Gwire
Дата 10.4.2009, 09:10 (ссылка) | (голосов:3) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 4
smile Но она по прежнему не закрыта.
smile Просто набрел - решил написать. А вдруг кому-то надо.
PS: Теме чуть больше 2-x. smile Да и принципы программирования стех пор не изменились.
PM MAIL   Вверх
Akella
Дата 10.4.2009, 22:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329
Цитата(Gwire @  10.4.2009,  09:10 Найти цитируемый пост)
Но она по прежнему не закрыта.

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

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

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

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

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

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

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


 




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


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

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