onKeyPress. Защита от неправильного ввода.

[Антон Лысенко]

У меня есть блок схема но я не представляю что писать в эту процедуру

[Stranger333]

Напешите задание полностью. Я Вас совсем не понял.

[Ghost of Night]

case Key of
 разрешенная_клавиша : действие;
 else действие_при_неправильном вводе;
end;

[Антон Лысенко]

мы только начали заниматься объектным программированием, так что пока я мало что понимаю в формах. Нужно сделать так что бы в Edit пользователь ничего не мог ввести кроме цифры. Ввод всех остальных знаков заменить #0.

[Stranger333]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8]) then key:=#0;
end;

[Антон Лысенко]

спасибо)))