GESTION D'UN RESTAURANT
cs_tigrou19
Messages postés
65
Date d'inscription
vendredi 15 août 2003
Statut
Membre
Dernière intervention
5 décembre 2005
-
29 juin 2005 à 10:45
Blacknight66 Messages postés 4 Date d'inscription vendredi 4 avril 2003 Statut Membre Dernière intervention 21 juillet 2010 - 30 juin 2005 à 11:28
Blacknight66 Messages postés 4 Date d'inscription vendredi 4 avril 2003 Statut Membre Dernière intervention 21 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.
https://codes-sources.commentcamarche.net/source/32398-gestion-d-un-restaurant
https://codes-sources.commentcamarche.net/source/32398-gestion-d-un-restaurant
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