集的专家组

代码说明：

``` avmCryptos: ========== TavmCryptos derived by TCriptografa Copyright 97, 99 by http://www.utranet.com.br/~elivaldo e-mail: [e-mail] avmFunctions: function LRPad(strTexto : String; intTamanho : Integer; charPad : char; tpTipoPad : TTipoPad) : String; procedure AjustaHoraLocal(datahora: TDateTime); function PrimeiroNome(nome : String) : String; function TrocaTexto (texto, antigotexto, novotexto: string): string; function CriptografiaSimples (const texto: string; const fator : Byte): string; function DecriptografiaSimples (const texto: string; const fator : Byte): string; function ValidaEstado(UF: string): Boolean; function ValidaData(Data: string): Boolean; function ValidaFloat(numero: string): boolean; function ValidaInteiro(numero: string): boolean; function TiraAcentuacao(const texto: string): string; function LocalIP : String; function LocalComputerName: string; function WindowsDirectory: string; function FormatarDataHora(data: TDateTime