Unité pour TP7

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 ?

Les fonctions sont elles pour le mode console ou le mode graphique?

Pour le mode console, elles ont été programmer à la base sur mon NT4.00 puis porter sur Xp familiale sans aucun problèmre

:D
Si vous avez un problème de compilation veuillez a mettre le même nom entre le nom du fichier .pas et le nom de l'unité; à la ligne unit.