biblioteca de funções

Biblioteca de funções:

//Encontre a string que melhor corresponde à string alvo
função MaxMatchStr(DestStr:String;Strs:matriz de String):String;

//Remove espaços no texto
função FmtText(Texto:String):String;

//Formatar números de ponto flutuante e corrigir erros de ponto flutuante.
função FmtFloat(Valor:Extendido;Dígitos:Integer=4):Double;

//Substitui substring em Str
procedimento SubstituaStr(var Str:String;const SourceStr,DestStr:String);

//Se a expressão Expression contém o item Item
função IncluiItem(Expressão,Item:String):Boolean;

//Mostra caixa de mensagem
função MsgBox(const Handle:THandle;Texto,Caption:String;
Bandeira:Inteiro):Inteiro;

//exibe mensagem
procedimento ShowMsg(Sender:TCustomForm;Msg:String);

//Exibe erros e encerra o evento atual
procedimento ShowError(Sender:TCustomForm;Erro:String);

//exibe erro
procedimento ErrorMsg(Sender:TCustomForm;Erro:String);

//Mostra aviso
procedimento ShowWarning(Sender:TCustomForm;Aviso:String);

//Lê o nome e o valor dos dados do registro
procedimento GetNamesAndValues(Registro:TRegistry;NamesValues:TStrings);

//Escreve dados no registro
procedimento WriteValues(Registro:TRegistry;ValueNames:matriz de String;Valores:matriz de Variante);

//Lê o valor da string no registro
função ReadRegistString(ARootKey:HKEY;Chave,Nome:String;DefaultValue:String= ):String;

//Escreve o valor da string no registro
procedimento WriteRegistString(ARootKey:HKEY;Chave,Nome,Valor:String);

//Lê o valor inteiro no registro
function ReadRegistInteger(ARootKey:HKEY;Chave,Nome:String;DefaultValue:Integer=0):Integer;

//Escreve um valor inteiro no registro
procedimento WriteRegistWord(ARootKey:HKEY;Chave,Nome:String;Valor:Integer);

//Lê o valor booleano no registro
função ReadRegistBool(ARootKey:HKEY;Chave,Nome:String;DefaultValue:Boolean=False):Boolean;

//Escreve um valor booleano no registro
procedimento WriteRegistBool(ARootKey:HKEY;Chave,Nome:String;Valor:Boolean);

//Representa a data no formato chinês: XXXX ano XX mês XX dia
função DateToChinese(ADate:TDate):String;

//Obtém o nome da máquina local
função GetComputerName:String;

//Obtém o diretório do arquivo temporário
função GetWinTempDir:String;

//Obtém o diretório do sistema
função GetSystemDir:String;

//Gera o nome do arquivo temporário
função GetTempFile(NomeDoCaminho,PrefixStr:String;UniqueID:Integer=0):String;