Unit U_Util

Description

 

Uses

Overview

Classes, Interfaces, Objects and Records

Name Description
Record T_Texte_Affic  

Functions and Procedures

Procedure Vide_Tampon_Clavier;
Procedure Attente_Appuit_Touche;
Procedure Message_Alerte(Chaine : String; Attente_Touche : Boolean);
Procedure Affichage_Ecran(Titre : String; Var Ecran_Aff : T_Texte_Affic);
Function Changer_Valeur(Titre : String; Borne_Min, Borne_Max, Valeur : Integer) : Integer;
Function Ask_Nom_Fichier(Chaine, Nom1, Extension : String; Tst_Exist : Boolean) : String;
Function Question_Oui_Non(Chaine : String; Defaut : Boolean) : Boolean;
Function Question_Alerte(Chaine : String): Boolean;

Types

T_String78 = String [78];
T_Ecran = Array [1..C_Nb_Ligne_Ecran] Of T_String78;

Constants

C_Nb_Ligne_Ecran = 20;

Description

Functions and Procedures

Procedure Vide_Tampon_Clavier;
 
Procedure Attente_Appuit_Touche;

Cette proc‚dure vide le tampon du clavier.

Procedure Message_Alerte(Chaine : String; Attente_Touche : Boolean);

Cette proc‚dure attend l'appuit d'une touche.

Procedure Affichage_Ecran(Titre : String; Var Ecran_Aff : T_Texte_Affic);

Cette procedure affiche un message et attend eventuellement.

Function Changer_Valeur(Titre : String; Borne_Min, Borne_Max, Valeur : Integer) : Integer;

Cette procedure affiche les lignes de l'ecran pass‚.

Function Ask_Nom_Fichier(Chaine, Nom1, Extension : String; Tst_Exist : Boolean) : String;

Cette fonction permet la saisie d'une valeur … l'aide du clavier.

Function Question_Oui_Non(Chaine : String; Defaut : Boolean) : Boolean;

Cette fonction renvoie le nom du fichier choisi.

Function Question_Alerte(Chaine : String): Boolean;

Cette fonction est vraie si l'utilisateur a r‚pondu Oui.

Types

T_String78 = String [78];
 
T_Ecran = Array [1..C_Nb_Ligne_Ecran] Of T_String78;
 

Constants

C_Nb_Ligne_Ecran = 20;
 
My libraries for Turbo Pascal (c) 1990-2025 Patrick PREMARTIN - Powered by PasDoc
Generated by PasDoc 0.16.0.