Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Вниз

Хм... Фильтр 


anod   (2002-01-10 13:16) [0]

Подскажите как отловить в edit1 если вводятся не числовые значения,а фильтр по числам.
То есть случйно ошибся и знак влепил - а прога сразу выдает ошибку. Что делать? (ошибка вроде EDatabaseError)
Пробовал в
try
....
except
on EDatabaseError do ShowMesage("...");
end;
НЕ помогает.



fnatali   (2002-01-10 13:26) [1]

По-моему надо на событие OnKeyPress Edit повесить обработчик кодов нажатых клавиш



Fareader   (2002-01-10 15:03) [2]

Держи

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
"0".."9", #8{код Backspace},, #13{код Enter}:;
else showmessage("Ашипка!");
end;

end;

Остальные коды добавишь по вкусу



anod   (2002-01-10 18:15) [3]

Попробую. Спасибо



anod   (2002-01-10 19:05) [4]

Да, message он выдает, а букву-то печатает и выскакивает опять ошибка



anod   (2002-01-11 00:16) [5]

Нашел!!
val(Edit1.Text,x,code);
if code=0 then
...
else showmessage("Ашипка!");



fnatali   (2002-01-11 06:39) [6]

А ещё лучше, наверное, MaskEdit использовать.



Fareader   (2002-01-11 09:59) [7]

2fnatali - полностью согласен




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.019 c
1-18786           MaTaDoR               2002-01-21 13:32  2002.02.07  
Активизируя родительское окно, оно не должно перекрывать дочернее


1-18858           Shadow77              2002-01-21 09:33  2002.02.07  
Где-бы взять прозрачный календарь?


3-18770           Вика                  2002-01-14 08:02  2002.02.07  
IB 5.6 , как сделать экпорт/импорт части таблицы через дискету?


3-18766           Gonza                 2002-01-12 14:49  2002.02.07  
IBM DB2, Обновление данных после Post?


14-18953          gun19456              2001-12-16 15:51  2002.02.07  
Где найти хороший бесплатный хостинг для размещения программ ?