Странный лаг (readkey), ascii код Опции

[klem4]

Хотел решать задачу которая изложена топиком ниже (про перемещение прямоугольника), но забыл ascii коды стрелок и решил их найти, если я пробовал writeln(ord(readkey)) то упорно выдавало нули, потом я решил попробовать вот так :

uses crt;
var
   b : byte;
begin

   clrscr;

   b := ord(readkey);

   writeln(b);

   readln;

end.

теперь выдет ноль и букву ! например для стрелки вверх буква H

Сообщение отредактировано: klem4 - 30.09.2005 0:54

[klem4]

Класc :D