Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.006 c