Игнорирование нажатия клавиши

[Marcus75]

Здравствуйте форумчане.
Помогите с оператором в Турбо Паскале.
Необходимо в проверке ввода сделать так, чтобы можно было вводить только цифры, а буквы нельзя было нажать.

[veniside]

if (not ansichar(key) in ['0'..'9', #8]) then key := #0;

а вобще лучше так, заодно и проверять ничего не надо )

[Zer0]

veniside, это для делфей, в TP уже не сработает

Один из вариантов - подключить crt и воспользоваться аналогичной конструкцией:

uses crt;
var c:char; s:string;
...
repeat
c:=readkey;
if (c in ['0'..'9']) then begin
  write (c);
  s:=s+c;
end;
until (c=#13);
...