Правила форума
ReadKey.PASЯзык:
Русский
English
{ Пример программы для функции ReadKey }
uses Crt;
var
C : String[2];
C2, TempS : String;
begin
WriteLn('Нажмите любую клавишу:');
C := ReadKey;
Str(Ord(C[1]), TempS);
C2 := '#' + TempS;
if C = #0 then
begin
C := C + ReadKey;
Str(Ord(C[2]), TempS);
C2 := C2 + ', #' + TempS;
end;
WriteLn('Вы нажали ', C, ', с кодом ASCII, равным ', C2);
end.
var
C : String[2];
C2, TempS : String;
begin
WriteLn('Нажмите любую клавишу:');
C := ReadKey;
Str(Ord(C[1]), TempS);
C2 := '#' + TempS;
if C = #0 then
begin
C := C + ReadKey;
Str(Ord(C[2]), TempS);
C2 := C2 + ', #' + TempS;
end;
WriteLn('Вы нажали ', C, ', с кодом ASCII, равным ', C2);
end.
::
::
::
