cs_tigrou19
Messages postés65Date d'inscriptionvendredi 15 août 2003StatutMembreDernière intervention 5 décembre 2005
-
29 juin 2005 à 10:45
Blacknight66
Messages postés4Date d'inscriptionvendredi 4 avril 2003StatutMembreDernière intervention21 juillet 2010
-
30 juin 2005 à 11:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
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.
@+
cs_MAURICIO
Messages postés2106Date d'inscriptionmardi 10 décembre 2002StatutModérateurDernière intervention15 décembre 20145 29 juin 2005 à 18:53
Franchement je suis tombé sur le c... lorsque j' ai vu la capture d' écran.
Dommage que je ne puisse compiler, t' aurai dû filer l' exe!
Mais la source est très bien écrite, bravo.
A+
cs_julesouley
Messages postés11Date d'inscriptiondimanche 26 juin 2005StatutMembreDernière intervention23 février 2011 29 juin 2005 à 15:29
j'ai rajouté le fichier crt.dcu. faite en sorte qu'il y est des erreures et surtout avertissez moi en me les decrivant.
eventuellement si vous avez des suggestions sur la façon dont je l'ai programmé faite moi signe.
il me reste a faire un procédure qui imprime tout ce qui s'affiche à l'écran. aidez moi sur cela.
merci
JuluXP
cs_grandvizir
Messages postés1106Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention 3 septembre 200622 29 juin 2005 à 10:52
Pour CRT, c'est tout à fait normal étant donné que ce prog est classé dans la catégorie "TURBO PASCAL". C'est pas du Delphi... à moins de faire qq adaptations !
cs_tigrou19
Messages postés65Date d'inscriptionvendredi 15 août 2003StatutMembreDernière intervention 5 décembre 20051 29 juin 2005 à 10:45
Bonjour,
Il manque crt.dcu ?
Dommage qu'il n'y est pas l'executable
@+Didier
30 juin 2005 à 11:28
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.
@+
29 juin 2005 à 18:53
Dommage que je ne puisse compiler, t' aurai dû filer l' exe!
Mais la source est très bien écrite, bravo.
A+
29 juin 2005 à 15:29
eventuellement si vous avez des suggestions sur la façon dont je l'ai programmé faite moi signe.
il me reste a faire un procédure qui imprime tout ce qui s'affiche à l'écran. aidez moi sur cela.
merci
JuluXP
29 juin 2005 à 10:52
29 juin 2005 à 10:45
Il manque crt.dcu ?
Dommage qu'il n'y est pas l'executable
@+Didier