Unit U_Codage

Uses
Classes, Interfaces, Objects and Records
Types
Variables

Description

 

Overview

Functions and Procedures

Function Car_Coder(Carac : Char; masq1, masq2 : byte) : Char;
Function Car_Decoder(Carac : Char; masq1, masq2 : byte) : Char;
Function Ch_Coder(Chaine : String) : String;
Function Ch_Decoder(Chaine : String) : String;
procedure ptr_coder(adr : pointer; nb_adr : word);
procedure ptr_decoder(adr : pointer; nb_adr : word);

Constants

C_Codage_1 : byte = $2a;
C_Codage_2 : byte = $f3;

Description

Functions and Procedures

Function Car_Coder(Carac : Char; masq1, masq2 : byte) : Char;

Voici les fonctions r‚alisant les codages, et d‚codages.

Function Car_Decoder(Carac : Char; masq1, masq2 : byte) : Char;

Renvoie le caractŠre cod‚.

Function Ch_Coder(Chaine : String) : String;

Renvoie le caractŠre d‚cod‚.

Function Ch_Decoder(Chaine : String) : String;

Renvoie la chaine cod‚e.

procedure ptr_coder(adr : pointer; nb_adr : word);

Renvoie la chaine d‚cod‚e.

procedure ptr_decoder(adr : pointer; nb_adr : word);
 

Constants

C_Codage_1 : byte = $2a;

Voici les deux variables utilis‚es lors du codage. Vous pouvez changer leur valeur par defaut.

C_Codage_2 : byte = $f3;

0010 1010

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