Ввод с клавиатуры Опции

[Dunkel_L]

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

procedure menu1;
var Key: Word;
var m:set of ord('0')..ord('9');
begin
m:=[ord('0'),ord('1'),ord('2'),ord('3'),ord('4'),ord('5'),ord('6'),ord('7'),ord('8'),ord('9')]+[ord(',')];
if  (not(key in m)) and (key<>ord(','))
      then
readln(Key);

[neic]

Вот тут сделал, думаю то что тебе нужно:

var s:char;
...
writeln('Введите символы. Конец ввода "*":');
Repeat
    read(s)
    If (s='1') or (s='2') or (s='3') or (s='4') or (s='5') or (s='6') or (s='7') or( s='8') or (s='9') or (s='0') or (s=',') then
    begin
            ...
    end;
Until s='*';

Сообщение отредактировано: neic - 11.12.2007 1:52