Коды клавиш Опции

[18192123]

А какие коды соответствуют клавишам
<--- , --->?

[Sto]

Извиняюсь за неправильные программы.
В будущем буду повнимательней.
Исправил код второй проги.
Вот исправленая первая.

Uses Crt;
Var ch :Char;
Begin
	ClrScr;
	WriteLn('ASCII');
	While(ch <> #27) Do
	Begin
		ch := ReadKey;
		If ch = #0 then
		Begin
			ch := ReadKey;
		End
		Else
		Begin
			Write('Char = ');
			If ch < #32 Then Write('^',Chr(Ord(ch)+64),' ')
			Else Write(ch,' ');
		End;
		WriteLn('ASCII = ',Ord(ch));
	End;

End.

Сообщение отредактировано: Sto - 29.04.2007 14:10