VPF::удаление в Edit и Combobox - Форум программистов

Vladimir13

Дата 26.12.2004, 08:01 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

напомните мне, а то я совсем запарился к утру. Как удалить символ из Edit'а и Combobox'a? Т.е. сделать ограничитель ввода только на цифры, а если ввели не цифру - удалить ее.

--------------------

Лучший метод - метод тыкаобращаться по адресу: mvdr

Coder

Дата 26.12.2004, 10:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 5
Всего: 11

в обработчике событий нажатия клавиш компонента пишем,
если key входит в диапозон букв, то присваиваем key:=#0

извини за псевдокод какой-то просто под руками Делфи нету

Alex

Дата 26.12.2004, 11:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Код


// Обработчик KeyPress для ввода только целых чисел
begin
  if not (Key in ['0'..'9', #8]) then Key:= #0;

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Vladimir13

Дата 27.12.2004, 02:48 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

спасибо обоим. Правда уже сам вспомнил в вечеру...

--------------------

Лучший метод - метод тыкаобращаться по адресу: mvdr

FRAGNATIC

Дата 27.12.2004, 04:01 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

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

Репутация: 6
Всего: 11

я вообщем использую это (взято тоже с forum.vingrad.ru) тока не помню где и кто именно автор в даном примере позволяет тока цифры вводить

Код


procedure TOptions.Edit1Change(Sender: TObject);
var s:string;
   i:integer;
begin
s:='';
for i:=1 to Length(TEdit(Sender).Text) do
 if (TEdit(Sender).Text[i] in ['0'..'9']) then s:=s+TEdit(Sender).Text[i];
TEdit(Sender).Text:=s;
end;

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