Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.10.2006, 00:58   #1
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,758
По умолчанию Ввести в Edit только числа и удалять их Bacspase'ом.

перенесено со старого форума. сообщение от Freedom.

Ввести в Edit только числа и удалять их Bacspase'ом.
Пишу на OnKeyPress ввод только чисел, но при работе отказывается удалять Bacspase'ом и работает только Delete.

перенесено со старого форума. сообщение от oLMeR.

Чтобы работал BackSpace ты должен тамже где разрешаеш числа разрешить и кнопку #8 как ты уже наверное догадался это и есть многоуважаемый BackSpace

перенесено со старого форума. сообщение от Freedom.

Спасибо! А то нигде не мог найти его код.

перенесено со старого форума. сообщение от SilVaN.

Предлогаю следующий вариант:

function TransStr(x: string): string;
var
rs: string;
i: integer;
begin
rs:=x;
if rs<>'' then
begin
if (rs[1]<>'-')and(not(rs[1] in ['0'..'9'])) then
rs:=Copy(rs,2,Length(rs)-1);
if Length(rs)>1 then
begin
for i:=2 to Length(rs) do
begin
if not (rs[i] in ['0'..'9']) then
rs:=Copy(rs,1,i-1)+Copy(rs,i+1,Length(rs)-i);
end;
end;
end;
Result:=rs;
end;

а в Edit1OnChange ставишь: Edit1.Text:=TransStr(Edit1.Text);
Alar вне форума Ответить с цитированием
Старый 01.11.2006, 03:10   #2
Баламут
Баламучу слегка...
Участник клуба
 
Аватар для Баламут
 
Регистрация: 01.11.2006
Сообщений: 1,585
По умолчанию

В обработчике KeyPress пишем:

if not (Key in ['0'..'9', #8]) then key := #0
Баламут вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как сделать в Edit Ввод только чисел Pashin Компоненты Delphi 17 26.07.2011 21:12
UpdateData(false) в цикле? вывод числа в Edit box Иван36 Помощь студентам 5 31.03.2008 18:33
начал учить только-только - нужна ваша помошь vanDJ Помощь студентам 20 18.12.2007 21:53
Как со списка чисел отобрать только простые числа SeRhy Помощь студентам 1 14.12.2007 12:06
Как удалять элементы массива в Паскале? Антонова Анна Помощь студентам 2 08.12.2007 17:01