My libraries for Turbo Pascal

Unit U_Sgf

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

Description

 

Uses

Overview

Functions and Procedures

Function Exist(Nom_Fic: String): Boolean;
Function Renomme(Nom1,Nom2: String): Boolean;
Function Efface(Nom_Fic: String): Boolean;
Function Change_Dir(Repertoire: String): Boolean;
Function Make_Dir(Repertoire: String): Boolean;
Function Remove_Dir(Repertoire: String): Boolean;
Function Get_Extension(Nom_Fich : String): String;
Function Get_Nom_Fichier(Nom_Fich : String): String;
function get_nom_fichier2(nom_fich : string) : string;
Function Get_Chemin_Fichier(Nom_Fich : String) : String;
Procedure Met_Extension(Nom_Fic, Extension : String; Var Result : String);
Procedure Cree_Bak(Nom_Fic: String);
procedure erreur(code_io : integer);
function get_file_name(nom_fic : pathstr) : pathstr;

Constants

C_EXE_Name: string = '';

Description

Functions and Procedures

Function Exist(Nom_Fic: String): Boolean;
 
Function Renomme(Nom1,Nom2: String): Boolean;

teste l'‚xistence d'un fichier

Function Efface(Nom_Fic: String): Boolean;

renomme le fichier NOM1 en NOM2 si NOM1 existe et que NOM2 n'existe pas.

Function Change_Dir(Repertoire: String): Boolean;

efface le fichier sp‚cifi‚

Function Make_Dir(Repertoire: String): Boolean;

change le chemin courant (lecteur inclus)

Function Remove_Dir(Repertoire: String): Boolean;

cr‚e le sous-r‚pertoire

Function Get_Extension(Nom_Fich : String): String;

efface le sous-repertoire sp‚cifi‚

Function Get_Nom_Fichier(Nom_Fich : String): String;

renvoie l'extension du fichier sp‚cifi‚ s'il y en a une. ( le point est inclus dans l'extension)

function get_nom_fichier2(nom_fich : string) : string;

renvoie le nom du fichier ‚pur‚ de son chemin d'accŠs (mais avec extension).

Function Get_Chemin_Fichier(Nom_Fich : String) : String;

Renvoie le nom du fichier sans extension.

Procedure Met_Extension(Nom_Fic, Extension : String; Var Result : String);

renvoie le chemin d'accŠs contenu dans Nom_Fich.

Procedure Cree_Bak(Nom_Fic: String);

met l'extension pr‚cis‚e au fichier sp‚cifi‚.

procedure erreur(code_io : integer);

cree le fichier .BAK correspondant au fichier nomm‚

function get_file_name(nom_fic : pathstr) : pathstr;
 

Constants

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