EIN Zeichen in der Konsole ausgeben

[SleepyMaster]

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!