bibliothèque de fonctions

Bibliothèque de fonctions :

//Trouver la chaîne qui correspond le mieux à la chaîne cible
function MaxMatchStr(DestStr:String;Strs:array of String):String;

//Supprimer les espaces dans le texte
fonction FmtText(Texte:String):String;

//Formater les nombres à virgule flottante et corriger les erreurs à virgule flottante.
function FmtFloat(Valeur:Extended;Chiffres:Integer=4):Double;

// Remplacer la sous-chaîne dans Str
procédure ReplaceStr(var Str:String;const SourceStr,DestStr:String);

//Si l'expression Expression contient l'élément Item
fonction IncludeItem(Expression,Item:String):Booléen;

//Afficher la boîte de message
function MsgBox (const Handle: THandle; Texte, Légende: String;
Indicateur : Entier : Entier ;

//afficher le message
procédure ShowMsg(Expéditeur:TCustomForm;Msg:String);

//Afficher les erreurs et terminer l'événement en cours
procédure ShowError(Sender:TCustomForm;Error:String);

//erreur d'affichage
procédure ErrorMsg(Sender:TCustomForm;Error:String);

//Afficher l'avertissement
procédure ShowWarning(Sender:TCustomForm;Warning:String);

//Lire le nom et la valeur des données du registre
procédure GetNamesAndValues(Registry:TRegistry;NamesValues:TStrings);

//Écrit les données dans le registre
procédure WriteValues(Registry:TRegistry;ValueNames:array of String;Values:array of Variant);

//Lire la valeur de la chaîne dans le registre
function ReadRegistString(ARootKey:HKEY;Key,Name:String;DefaultValue:String= ):String;

//Écrit la valeur de la chaîne dans le registre
procédure WriteRegistString(ARootKey:HKEY;Clé,Nom,Valeur:String);

//Lire la valeur entière dans le registre
fonction ReadRegistInteger(ARootKey:HKEY;Key,Name:String;DefaultValue:Integer=0):Integer;

//Écrit une valeur entière dans le registre
procédure WriteRegistWord(ARootKey:HKEY;Key,Name:String;Value:Integer);

//Lire la valeur booléenne dans le registre
fonction ReadRegistBool(ARootKey:HKEY;Key,Name:String;DefaultValue:Boolean=False):Boolean;

//Écrit une valeur booléenne dans le registre
procédure WriteRegistBool(ARootKey:HKEY;Key,Name:String;Value:Boolean);

//Représente la date au format chinois : XXXX année XX mois XX jour
fonction DateVersChinese(ADate:TDate):String;

//Obtenir le nom de la machine locale
fonction GetComputerName:String ;

//Obtenir le répertoire des fichiers temporaires
fonction GetWinTempDir:String;

//Obtenir le répertoire système
fonction GetSystemDir:String;

// Générer un nom de fichier temporaire
fonction GetTempFile(PathName,PrefixStr:String;UniqueID:Integer=0):String;