biblioteca de funciones

Biblioteca de funciones:

//Busca la cadena que mejor coincida con la cadena de destino
función MaxMatchStr(DestStr:String;Strs:matriz de String):String;

//Eliminar espacios en el texto
función FmtText(Texto:Cadena):Cadena;

//Formatear números de coma flotante y corregir errores de coma flotante.
función FmtFloat(Valor:Extendido;Dígitos:Entero=4):Doble;

//Reemplazar subcadena en Str
procedimiento ReemplazarStr(var Str:String;const SourceStr,DestStr:String);

//Si la expresión Expresión contiene el elemento Elemento
función IncluirArtículo(Expresión,Artículo:Cadena):Booleano;

//Mostrar cuadro de mensaje
función MsgBox(const Mango:THandle;Texto,Caption:String;
Bandera:Entero):Entero;

//mostrar mensaje
procedimiento ShowMsg(Remitente:TCustomForm;Msg:String);

//Mostrar errores y finalizar el evento actual
procedimiento ShowError(Remitente:TCustomForm;Error:Cadena);

// mostrar error
procedimiento ErrorMsg(Remitente:TCustomForm;Error:String);

//Mostrar advertencia
procedimiento ShowWarning(Remitente:TCustomForm;Advertencia:Cadena);

//Leer el nombre y el valor de los datos del registro
procedimiento GetNamesAndValues(Registry:TRegistry;NamesValues:TStrings);

//Escribe datos en el registro.
procedimiento WriteValues(Registry:TRegistry;ValueNames:matriz de cadenas;Valores:matriz de variantes);

//Leer el valor de la cadena en el registro
función ReadRegistString(ARootKey:HKEY;Clave,Nombre:Cadena;Valor predeterminado:Cadena= ):Cadena;

//Escribe el valor de la cadena en el registro
procedimiento WriteRegistString(ARootKey:HKEY;Clave,Nombre,Valor:Cadena);

//Leer el valor entero en el registro
función ReadRegistInteger(ARootKey:HKEY;Key,Name:String;DefaultValue:Integer=0):Integer;

//Escribe un valor entero en el registro
procedimiento WriteRegistWord(ARootKey:HKEY;Clave,Nombre:Cadena;Valor:Entero);

//Leer el valor booleano en el registro
función ReadRegistBool(ARootKey:HKEY;Key,Name:String;DefaultValue:Boolean=False):Boolean;

//Escribe un valor booleano en el registro
procedimiento WriteRegistBool(ARootKey:HKEY;Clave,Nombre:Cadena;Valor:Booleano);

//Representa la fecha en formato chino: XXXX año XX mes XX día
función DateToChinese(ADate:TDate):String;

//Obtener el nombre de la máquina local
función ObtenerNombreDeEquipo:Cadena;

//Obtener el directorio de archivos temporales
función GetWinTempDir:Cadena;

//Obtener el directorio del sistema
función GetSystemDir:Cadena;

//Generar nombre de archivo temporal
función GetTempFile(PathName,PrefixStr:String;UniqueID:Integer=0):String;