Набор строки и выход из неё в любой момент Опции

[4epenOK]

Здравствуйте!
У меня возникла проблемка, надеюсь на вашу помощь. Пишу я программу по вычислению среднего балла учеников. Нужно чтобы можно было выйти из программы в любой момент времени сразу после нажатия Esc. Проблема заключается в том, что при вводе имени ученика я не могу это реализовать. Пробовал сделать вводить-выводить посимвольно каждую букву, но появились какие-то глюки. Дело в том, что нужно ещё реализовать поддержку клавиш Del, Backspace, end, home. Имя ученика может состоять из любых символов.
Компилятор Turbo Pascal 7.0

[4epenOK]

Сделал я как ты сказал. Поначалу всё пошло. Но потом, когда я начал подстраивать её под себя, опять появились траблы. Я повставлял write(lenght(s)) в нескольких местах и прога начала мне выдавать самые разные цифры. От 78 до 224. Склоняюсь к мысли, что у меня Паскаль левый какой-то. В общем я поковырялся в программе и остановился на следующем варианте.

uses crt;

procedure get_str;

  function my_delete(var s: string; p: integer): boolean;
  begin
    delete(s, p, 1);
    s := s + ' ';
    my_delete := true;
  end;

var
  s,c: string;
  ch: char;
  p: integer;
  clear: boolean;
  i:byte;
begin
  s := ''; p := 0;
  clear := false;
  repeat
    gotoxy(p+1, wherey);

    ch := readkey;
    if length(s) <= 25 then
      case ch of
        #0:
          case readkey of
            #75: { left }
              if p > 0 then dec(p);

            #77: { right }
              if p < length(s) then inc(p);

            #71: { home }
              p := 0;

            #79: { end }
              p := length(s);

            #83: { delete }
              begin

                if (p >= 0) and (p < length(s)) then begin
                  clear := my_delete(s, p + 1);
                end;

              end;
          end; { case }

         #13:;

         #27:   { begin s:='';  }
             halt;{ end;}

         #8: { backspace }
           begin
             if p > 0 then begin

               clear := my_delete(s, p);
               dec(p);

             end;
           end

        else begin { any char }

          if length(s) <> 25 then begin

            if (p < length(s)) and (ch<>#13) then insert(ch, s, p + 1)
            else s := s + ch;
            inc(p);

          end;

        end;
      end; { case }

    gotoxy(1, wherey);
    write(s);

    if clear then begin
      delete(s, length(s), 1);
      clear := false;
    end;

  until ch = #13;

  if s='' then begin inc(i); str(i, c); s:='Неизвестный № '+c; textcolor(9);
  write(s); end; textcolor(7); write(': ');
end;

begin get_str; readln;
end.

Поскольку все ученики без исключения имеют ограничения на имена в 25 символов и должны начинаться сначала строки, то я переделал твою функцию в процедуру. Вроде всё работает
Спасибо за помощь

Сообщение отредактировано: 4epenOK - 3.03.2007 20:53