Salut

Bien sympa mais si tu met pas tout ça marche pas, NDUtils par exemple, ton code la se résume a un Form avec 5 compos et une ligne de code.

Mes amis je vous propose l'unité CRT que j'ai bidouillée pour le faire fonctionner sous D6/7.

unit crt;

interface
         uses sysutils,windows;

procedure GotoXY(X,Y : byte);
function ReadKey : Char;
function Keypressed : boolean;

implementation

var
   ConHandle,KeyHandle : THandle;
   ConScreenPos        : COORD;

procedure TextColor(X : word);
begin
     SetConsoleTextAttribute(ConHandle,X);
end;

procedure GotoXY(X,Y : byte);
begin
     ConScreenPos.X:= X;
     ConScreenPos.Y:= Y;
     SetConsoleCursorPosition(ConHandle,ConScreenPos);
end;

function ReadKey : Char;
var
   Buf    : TInputRecord;
   Dw     : dword;

begin
     Dw:= 0;
     repeat
           FlushConsoleInputBuffer(KeyHandle);
           ReadConsoleInput(KeyHandle, Buf, 1, Dw);
     until (Buf.EventType = KEY_EVENT);
     Result:= Buf.Event.KeyEvent.AsciiChar;
end;

function Keypressed : boolean;
begin
     Result:= (ReadKey <> #0);
end;

begin
     ConHandle:= GetStdHandle(STD_OUTPUT_HANDLE);
     KeyHandle:= GetStdHandle(STD_INPUT_HANDLE);
end.

Excellent ton code, un peu fouillit (identation !!!), tu pourrais aussi mettre un peut de couleur.

@+

Oui c'est vrai, j'y ai pensé mais cette fonction ne me convenait pas.

Pour répondre a ta question, oui j'habites dans le 66.