EIN Zeichen in der Konsole ausgeben

[SleepyMaster]

Hi ihrs

weiß jemand von euch, wie ich EIN Zeichen in der Konsole ausgeben kann???

So wie WriteLn nur das das dann sozusagen WriteChr wäre
also nur ein Zeichen, nicht eine Ganze Reihe.

Delphi-Quellcode:

procedure WriteChr(input:char);
begin
WriteLn(input);
end;

bringt mir natürlich nix, da ich danach in die selbe Reihe auch noch ein Zeichen schreiben will (Nur Zeitlich versetzt)

Vielen Dank
SleepyMaster

[mirage228]

Delphi-Quellcode:

  Write(#65);
  // oder
  Write('A');
  // oder
  Write(Chr(65));
  // edit: oder in deinem fall
  Write(Input);

mfG
mirage228

EDIT2: Erster ^^

[Chewie]

Ein Tipp: Das Ln steht für Line, macht also einen Zeilenumbruch. Benutz einfach Write.

[Ratte]

Wie wär's mit

Delphi-Quellcode:

procedure WriteChr(input:char);
begin
Write(input);
end;

?

Ratte

[Mirilin]

Delphi-Quellcode:

  for i := ord('a') to ord('z') do
  begin
    write(chr(i));
    sleep(500);
  end;
  readln;

mfg Tobias

//edit ich bin schweizer, und hab einen teil der wurzeln in bern -> langsam

[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!