Тема: [Delphi]/[Pascal] Задай вопрос, получи ответ
Показать сообщение отдельно

  #6  
Старый 20.04.2008, 16:17
Dr.KoD
Познающий
Регистрация: 01.03.2008
Сообщений: 68
Провел на форуме:
140772

Репутация: 72
По умолчанию
[Dezzter]Для особо страждущих вот реализация в несколько строк :
Код:
begin
case Key of
    '0'..'9',#8:
else
Key := #0;
end;
end;
 
Ответить с цитированием