Delfi

[*Fantom*]

У меня есть поле edit в котором должны быть только числа, как зделать проверку не используя коды клавиш?
Мое предположение, но оно не работает((

x:=strtofloat(edit1.Text);
y:=strtofloat(edit2.text);
c:=strtofloat(edit3.Text);
if ((x>(-32000))and(x<32000))or((y>(-32000))and(y<32000))or((c>(-32000))and(c<32000)) then
z:=(x/100)*y*c;
if CheckBox1.Checked = True then   z:=z*2;
Label1.Caption := FloatToStr(z);
else   showmessage('ERROR');
end;

[kventin_zhuk]

Вы ввод хотите ограничить, чтобы не вводились символы отличные от цифр? тут без кодов никак

Создаете обработчик события у Edit OnKeyPress - и внутри него проверяете:

if not (Key in ['1'..'9', #8]) then 
      Key := #27;

То, что с решеточкой - коды клавиш. 8 - Backspace и 27 - Esc

[*Fantom*]

Спасибо но на преподаватель запретил использовать коды клавиш(
Сказала хоть убейтесь но без них)

[type_Oleg]

Тут синтаксическая ошибка: " ; " перед " else ". Забыли, наверное " begin ... end ". У вас же по последнему then 2 оператора выполняються должны?

И зачем " if CheckBox1.Checked = True ", если можно просто "if CheckBox1.Checked".

А вообще, я суть задачи не понял. Зачем эти 32000 ?

[Armorer]

только числа

В D2010 у Edit есть свойство NumbersOnly.

[Mad_Cat]

http://delphiworld.narod.ru/base/edits_number_mask.html

[Arigato]

Все эти фильтры по клавишам не учитывают возможность вставки текста из буфера обмена.

[*Fantom*]

Нужно попробывать сделать с помощью свойства NumbersOnly. Всем спасибо за помощь