GotoXY Implementierung

Question

Diese Frage ist eine Follow-up zu meinem früheren Beitrag mit dem Titel How to fix this procedure writing a string to the console screen buffer.

ich den Cursor auf einem bestimmten (x, y) Position vor dem Schreiben eine beliebige Zeichenfolge festlegen möchten:

GotoXY(x,y) 
SendLn('The harder they come...'); 

Wie procedure GotoXY(x, y: integer) umgesetzt werden können?

Answer 1

Eine schnelle Google enthüllt

SetConsoleCursorPosition

Answer 2

als Referenz, das ist meine Antwort auf die Frage, bezogen auf JamesB der Post (die akzeptierte Antwort):

procedure GotoXY(x, y: Integer); 
var 
    CursorCoord: _COORD; 
begin 
    CursorCoord.x := x; 
    CursorCoord.y := y; 

    SetConsoleCursorPosition(hStdOut, CursorCoord); 
end; 

Edit:

Die page, auf die oben von jamesB verwiesen wird, zeigt auch auf eine andere interessante verwandte Ressource, nämlich GetConsoleScreenBufferInfo function.

Das Abrufen der Spalten- und Zeilenkoordinaten des Cursors in der Konsole Bildschirmpuffer ist auch Teil meiner Anforderungen.

Hier sind die 2 Delphi Funktionen, die ich geschrieben auf die zitierte Ressource basierend haben:

var 
    Buffer: _Console_Screen_Buffer_Info; 

... 

function WhereX: Integer; 
begin 
    GetConsoleScreenBufferInfo(hStdOut,Buffer); 
    // 
    Result:=Buffer.dwCursorPosition.X; 
end; 

function WhereY: Integer; 
begin 
    GetConsoleScreenBufferInfo(hStdOut,Buffer); 
    // 
    Result:=Buffer.dwCursorPosition.Y; 
end;