[Delphi] Aplikacja kosnolowa

0

Jak w aplikacji konsolowej reagować na naciśnięcie jakiegoś klawisza, np. strzałki?---------------------------
Delphi 6

Pozdrówka

0

Chyba tak jak w Pascalu. ReadKey (albo KeyRead - dawno już nie pisałem :P )--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

0

Niestety nie :(---------------------------
Delphi 6

Pozdrówka

0

function ReadKey:Char;
var
Rec : TInputRecord;
x : Cardinal;
begin
repeat
ReadConsoleInput(GetStdHandle(STD_INPUT_HANDLE), Rec, 1, x);
until (Rec.EventType = KEY_EVENT) and (Rec.Event.KeyEvent.bKeyDown);
Result := Rec.Event.KeyEvent.AsciiChar;
end;--__________________________________
Pozdrawiam...
piechnat

1 użytkowników online, w tym zalogowanych: 0, gości: 1