Bonjour,
Je vous propose un nouvel élément à utiliser : unitée pour tp7
Une unité bien pratique qui contient les fonctions
- function StringToInt(s : string) : integer;
- function IntToString(i : integer) : string;
- procedure fenetre(X1 : integer; Y1 : integer; X2 : integer; Y2 : integer); (fenêtre à double bordure)
- procedure dec(i : integer; a : integer); décrémenter
- procedure centrer(s : string; y : integer); centre une chaîne pour un y donné
- procedure instcolorln(i :string;e : byte;b : byte); couleur sur une ligne e=nouvelle couleur et b = ancienne couleur
- procedure instcolor(i :string;e : byte;b:byte); la même chose sans aller à la ligne
- procedure pleinecran;
- function on_click_button(x1,y1,x2,y2:integer):boolean; a faire marcher ^^
- procedure initmouse;
J'ai créé ces quelques fonctions afin de faciliter ma vie et celle de certains programmeurs.
Si vous avez des suggestion n'hésitez pas.
Compilable sous tp7 Dos réel et Windows
Titeeee
Qu'en pensez-vous ?
Partager