My libraries for Turbo Pascal

Unit u_msg

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

Description

 

Overview

Functions and Procedures

procedure init_msg(name : string);
function get_msg(num : word) : string;
function set_langue(num : longint) : boolean;
function get_nb_msg: word;

Constants

header_msg = #8'Olf Software Multi-Language Interface.'#10#13#26#0;
msg_f = 1;
msg_gb = 2;
msg_d = 4;
msg_i = 8;
nom_fich_msg : string = '';
langue_autorisee : longint = 0;
langue_utilisee : longint = msg_f;
langue_par_defaut : longint = msg_f;

Description

Functions and Procedures

procedure init_msg(name : string);
 
function get_msg(num : word) : string;

Chargement du fichier des messages, et s‚lection de la langue en cours.

function set_langue(num : longint) : boolean;

Renvoie la chaŚne contenant le message NUM.

function get_nb_msg: word;

Chargement de la langue par le programme, retourne TRUE si fichier de messages contient cette langue.

Constants

header_msg = #8'Olf Software Multi-Language Interface.'#10#13#26#0;

Auteur: Patrick Pr‚martin. Date: 21/07/1992. 24/07/1992. 27/07/1992. 28/07/1992. 29/07/1992. 30/07/1992. 05/08/1992. 03/07/1993. Langage: Turbo Pascal 6.0 19/09/1993, Borland Pascal 7.0 But: Gestion des fichiers d'extension MSG contenant les textes multi-lingues pour les nouveaux logiciels Olf Software.

La langue par d‚faut est le Fran‡ais.

msg_f = 1;
 
msg_gb = 2;

Messages en Fran‡ais.

msg_d = 4;

Messages en Anglais.

msg_i = 8;

Messages en Allemand.

nom_fich_msg : string = '';

Messages en Italien.

langue_autorisee : longint = 0;
 
langue_utilisee : longint = msg_f;
 
langue_par_defaut : longint = msg_f;
 
My libraries for Turbo Pascal (c) 1990-2025 Patrick PREMARTIN - Powered by PasDoc
Generated by PasDoc 0.16.0.