My libraries for Turbo Pascal

Unit U_Chaine

Description
Uses
Classes, Interfaces, Objects and Records
Functions and Procedures
Types
Constants
Variables

Description

 

Overview

Functions and Procedures

Procedure Copie_Milieu(Origine : String; Var Destination : String);
Function Lettre(C : Char) : Boolean;
Function Lettre_Espace(C : Char) : Boolean;
Function Alphabetique(Ch : String) : Boolean;
Function Numerique(Ch : String) : Boolean;
Procedure Complementer_Chaine(Var Ch : String; Longeur : Integer);
Function Trait(C : Char; Longeur : Integer) : String;
Function Justifier_gauche(Ch : String) : String;
Function Justifier_Droite(Ch : String) : String;
Function Cadrer_Gauche(Ch : String) : String;
Function Cadrer_Droite(Ch : String) : String;

Types

Chaine10 = String [10];
Chaine20 = String [20];
Chaine40 = String [40];
Chaine80 = String [80];
Vecteur_Chaine_20_10 = Array [1..10] Of Chaine20;
Vecteur_Chaine_20_100 = Array [1..100] Of Chaine20;
Vecteur_Chaine_20_1000 = Array [1..1000] Of Chaine20;
Vecteur_Chaine = Vecteur_Chaine_20_100;

Constants

Chaine_Vide = '';
Espace = ' ';

Description

Functions and Procedures

Procedure Copie_Milieu(Origine : String; Var Destination : String);

********************************************************************************

Function Lettre(C : Char) : Boolean;

Recopie Origine dans Destination en cadrant la chaine, si la chaine de d‚part est trop longue, on se contente d'en copier le d‚but.

Function Lettre_Espace(C : Char) : Boolean;

Renvoie TRUE si le caractŠre pass‚ est bien une lettre (majuscule ou minuscule).

Function Alphabetique(Ch : String) : Boolean;

Renvoie TRUE si le caractŠre pass‚ est une lettre ou un espace.

Function Numerique(Ch : String) : Boolean;

Est TRUE si la chaine pass‚e est compos‚e uniquement d'espaces ou de lettres.

Procedure Complementer_Chaine(Var Ch : String; Longeur : Integer);

Est TRUE si la chaine pass‚e est compos‚e uniquement de chiffres.

Function Trait(C : Char; Longeur : Integer) : String;

Compl‚mente la chaine par des espaces.

Function Justifier_gauche(Ch : String) : String;

Met Longueur caractŠres C dans la chaine r‚sultante.

Function Justifier_Droite(Ch : String) : String;

Suppression des espaces au d‚but de la chaine.

Function Cadrer_Gauche(Ch : String) : String;

Suppression des espaces … la fin de la chaine.

Function Cadrer_Droite(Ch : String) : String;

Cadrage de la chaine … gauche.

Types

Chaine10 = String [10];
 
Chaine20 = String [20];
 
Chaine40 = String [40];
 
Chaine80 = String [80];
 
Vecteur_Chaine_20_10 = Array [1..10] Of Chaine20;
 
Vecteur_Chaine_20_100 = Array [1..100] Of Chaine20;
 
Vecteur_Chaine_20_1000 = Array [1..1000] Of Chaine20;
 
Vecteur_Chaine = Vecteur_Chaine_20_100;
 

Constants

Chaine_Vide = '';

Modifi‚e par Pr‚martin Patrick 19/09/1993, Borland Pascal 7.0

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