если вводится не буква и цифра выводится сообщение Опции

[dct]

как вывести сообщение о том что была введина цифра или буква уже повторялась????

[volvo]

dct
В моей функции придется кое-что изменить:

Код

function myReadKey: Char;

  function upchar(ch:char):char;
  {Поднимает символ в верхний регистр}
  begin
    upchar:=char(byte(ch)-$20*byte(ch>#96)-$30*byte(ch>#$DF));
  end;

var ch: char;
begin
  repeat
    ch := upchar(readkey);
    if  ch in ['0' .. '9'] then
      begin gotoxy({где-то}); writeln('введена цифра') end
    else if not (ch in charSet) then
      begin gotoxy({где-то}); writeln('не буква, или эта буква уже была') end;
  until ch in charSet;
  exclude(charset, ch);
  myReadKey := ch
end;

Сообщение отредактировано: volvo - 3.01.2005 16:58