Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.18;
Скачать: CL | DM;

Вниз

Проверка на корректный ввод чисел   Найти похожие ветки 

 
ruslan_as ©   (2002-03-01 13:52) [0]

Делаю проверку на коректный ввод чисел Edit через KeyPress.
Процедура срабатывает, но на экране у меня в Edit остаеться последний неправильный знак.

Хотя если я провожу процедуру
копирования с Edit1 на другие Edit в них приходит чистое число.


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ((Ord(key)<48) and (Ord(key)>48)) or ((Ord(key)>57) and (Ord(key)<>8)) then
begin
ShowMessage("Ошибка ввода!");
end;

end;


 
[NIKEL] ©   (2002-03-01 14:06) [1]

добовляй после ShowMesage("Ошибка ввода!");
такое
Key:=0;


 
Sasha9 ©   (2002-03-01 14:23) [2]

что это за условие странное
((Ord(key)<48) and (Ord(key)>48))


 
ruslan_as ©   (2002-03-01 15:20) [3]

>NIKEL Я добавил, но теперь он вместо неверной буквы добавляет 0, но это тоже для меня помеха. Мне бы, что бы он оставил предыдущее число.

>Sasha9 спасибо, сразу не заметил.


 
Sasha9 ©   (2002-03-01 15:51) [4]

наверное не 0 а #0


 
Kozhanov ©   (2002-03-01 15:57) [5]

> ruslan_as
А тебе обязательно посимвольно проверять ?


 
SuperBizon   (2002-03-01 16:07) [6]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var k:integer;
m:byte;
begin
if key<>#8 then
begin
val(key,m,k);
if k>0 then
key:=#0;
end;
end;


 
ruslan_as ©   (2002-03-01 16:15) [7]

Спасибо всем! #0 работает отлично!



Страницы: 1 вся ветка

Текущий архив: 2002.03.18;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.01 c
1-57394
kot
2002-03-01 21:18
2002.03.18
Компонента для написания сумы прописью


7-57530
Angar
2001-11-26 11:52
2002.03.18
Как можно программно отключить стандартный драйвер COM-порта в Win98/Me/NT/2000 ?


14-57510
Black_Angel
2002-02-03 17:07
2002.03.18
Своя игра


14-57513
ATLANTIDO
2002-02-04 14:40
2002.03.18
ПОЧТОВЫЙ СЕРВЕР


14-57496
GoodBoy II
2002-02-02 22:13
2002.03.18
Кто знает какой-нибудь хорошенький Nет браузер с поддержкой скинов?