Mise en œuvre de GotoXY

Question

Cette question fait suite à mon précédent article intitulé How to fix this procedure writing a string to the console screen buffer.

Je veux placer le curseur sur une position donnée (x, y) avant d'écrire une chaîne arbitraire:

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

Comment peut-on procedure GotoXY(x, y: integer) mis en œuvre?

Answer 1

Un rapide Google révèle

SetConsoleCursorPosition

Answer 2

Pour référence, voici ma solution à la question, basée sur le poste de JamesB (la réponse acceptée):

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

    SetConsoleCursorPosition(hStdOut, CursorCoord); 
end; 

Edit:

Le page référencé par jamesB ci-dessus indique également une autre ressource connexe intéressante, à savoir GetConsoleScreenBufferInfo function. Obtenir les coordonnées colonne et ligne du curseur dans le tampon de l'écran de la console fait également partie de mes exigences.

Voici les 2 fonctions Delphi J'ai écrit sur la base ressource citée:

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;