Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Проверить введеные данные

Автор: AlanFree 1.11.2006, 17:28

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

Код


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

Но ошибка толком не перехватывается...

Автор: Akella 1.11.2006, 17:34

http://forum.vingrad.ru/topic-100414/hl/keypress/index.html
поиск ещё работает

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

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

Добавлено @ 17:38
только никакого отношения ADO не имеет к проверке вводимых в TEdit символов.

Автор: AlanFree 1.11.2006, 17:40

Akella, пасибо smile

Автор: Akella 2.11.2006, 09:47

не забываем помечать вопрос, как решённый

Автор: AlanFree 2.11.2006, 10:06

ок

Автор: Gwire 9.4.2009, 20:01

Попробуй через обработчик событий 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;

Этот метод хорошь тем, что его можна привязать к любому TEdit.

Автор: Akella 9.4.2009, 22:39

Цитата(Gwire @ 9.4.2009, 20:01

)

Попробуй через обработчик событий OnChange.

вообще-то теме уже три года

Автор: Gwire 10.4.2009, 09:10

Но она по прежнему не закрыта.
smile

Просто набрел - решил написать. А вдруг кому-то надо.
PS: Теме чуть больше 2-x. smile

Да и принципы программирования стех пор не изменились.

Автор: Akella 10.4.2009, 22:35

Цитата(Gwire @ 10.4.2009, 09:10

)

Но она по прежнему не закрыта.

И не будет закрыта, если конечно, здесь не начнётся чёрный флуд или ещё чего-нить