Cool! Danke! So einfach?!?
Hätte ich garnicht gedacht!
Nachdem man zum einlesen eines einzelnen Zeichens soviel Code benötigt
Delphi-Quellcode:
program Project1;
{$APPTYPE CONSOLE}
uses
Windows,
SysUtils;
function KeyPress: Word;
var
Read: Cardinal;
Hdl: THandle;
Rec: _INPUT_RECORD;
begin
Hdl := GetStdHandle(STD_INPUT_HANDLE);
repeat
Rec.EventType := KEY_EVENT;
ReadConsoleInput(Hdl, Rec, 1, Read);
until (Read = 1) and (Rec.Event.KeyEvent.bKeyDown);
Result := Rec.Event.KeyEvent.wVirtualKeyCode;
end;
var
Ch: Word;
begin
Ch := KeyPress();
while Ch <> VK_ESCAPE do
begin
WriteLn(Ch);
Ch := KeyPress();
end;
end.
hatte ich damit gerechnet, das das Ausgeben nicht sooo viel weniger brauch!
Danke!
