Форматирование ввода-вывода, как ограничить пользователя Опции

[Rishat]

Кто знает как можно ограничить пользователя при вводе данных - я имею ввиду есливводимое данное должно быть целочисленное -чтобы он ... не мог
там запятую или точку ввести - чтоб она у него не печаталась а токмо
цифры от 0...9 и длинну скажем только 4 символа
Я такую штуку наблюдал в калькуляторе винды - там буквы не печатаются
Заранее спасибо

Сообщение отредактировано: Rishat - 18.04.2004 15:15

[Atos]

Код

uses crt;
function reading:string;{Читает строку из четырёх цифр}
var i:byte;
   ch:char;
   str:string[4];
begin
clrscr;
i:=0;
str:='';
repeat
ch:=readkey;
if (ord(ch)>=48) and (ord(ch)<=58) then
    begin
    str:=str+ch;
    inc(i);
    write(ch);
    end;
until (i=4);
reading:=str;
end;

begin
write(' vveli ',reading);
readln;
end.