Nilcemar Ferreira - Dicas de T.I.

Fiz essa função para uma necessidade minha de gerar senha a usuários. Ela gera aleatoriamente senhas com números  e letras, só numeros, só minusculas ou maiúsculas e minúsculas, dependendo da parametrização que você mandar pra ela. Bom proveito. function GeraSenha(QtdCaracteres: Byte; SoNumeros: Boolean = False; MaisculasEMinusculas: Boolean = True): String; //Gera uma senha aleatória com letras e numeros ou só numeros const   Letras: array[0..25] of string = ('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'); var   ParteNumerica, i, MaiMin: Byte;   ParteCaracter: string;   ContaMais1: Boolean; begin   Result:= '';   Randomize;   ContaMais1:= False;   for I := 1 to QtdCaracteres  do   begin     if not...

Pessoal, Segue a lista de todos os firmwares para iPhone lançados até hoje. Para quem quer fazer um upgrade ou downgrade tá ai... iPhone4S 5.0.1 http://appldnld.apple.com/iPhone4/04...5_Restore.ipsw 5.0 http://appldnld.apple.com/iPhone4/04...4_Restore.ipsw iPhone4 GSM 5.0.1 http://appldnld.apple.com/iPhone4/04...5_Restore.ipsw 5.0 http://appldnld.apple.com/iPhone4/04...4_Restore.ipsw 4.3.5 http://appldnld.apple.com/iPhone4/04...1_Restore.ipsw 4.3.4 http://appldnld.apple.com/iPhone4/04...2_Restore.ipsw 4.3.3 http://appldnld.apple.com/iPhone4/04...2_Restore.ipsw 4.3.2 http://appldnld.apple.com/iPhone4/04...7_Restore.ipsw 4.3.1 http://appldnld.apple.com/iPhone4/04...4_Restore.ipsw 4.3 http://appldnld.apple.com/iPhone4/04...0_Restore.ipsw 4.2.1 http://appldnld.apple.com/iPhone4/06...8_Restore.ipsw 4.1 http://appldnld.apple.com/iPhone4/06...7_Restore.ipsw 4.0.2 http://appldnld.apple.com/iPhone4/06...0_Restore.ipsw 4.0.1 http://appldnld.apple.com/iPhone4/06...6_Restore....

Esta função valida o CNPJ/CPF ou CEI passado como parâmetro, retornando ou não uma mensagem de erro ao usuário. Ela usa a função somentenumerosnastring, postado anteriormente. Aconselho formatar o Cnpj/CPF direto no banco numa trigger beforeinsert/update, usando a Stored procedure postada anteriormente

Essa função retorna somente números passados na string. Útil para validação de documentos, testes,etc. function ApenasNumerosNaString(pStr:String): String; //Converte uma cadeia de string onde se tenha numeros e caracteres em uma cadeia de strings onde so tenha numeros Var   I: Integer; begin   Result := '';   For I := 1 To Length(pStr) do    If pStr[I] In ['1','2','3','4','5','6','7','8','9','0'] Then      Result := Result + pStr[I]; end ;

[Portugese and English] Provavelmente alguem já passou por este problema ou vai passar: Ter as versões RAD/Delphi XE2 e XE instaladas na mesma máquina e após a instalação a IDE do XE não inicializar com o erro abaixo: Nome do evento do problema:   APPCRASH Nome da aplicação:   bds.exe Versão da aplicação:   15.0.3953.35171 Nome do módulo com erro :   coreide150.bpl e em seguida: Runtime error 216 at 20A784BF Resolução: O problema está nos Arquivos Comuns (Common Files) das duas IDE´s. Você deve especificar caminhos diferentes na instalação das duas para que não haja conflito. Se você já instalou o XE2 e tem o XE instalado, terá que remover os dois e reiniciar a máquina Veja se não existe nenhum lixo que a instalação não apagou na pasta Common Files (C:\Program Files (x86)\Embarcadero\RAD Studio\8.0 e 9.0). Se houver, delete. Instale o XE e na tela que pedir os caminhos de CommonFiles informe outro endereço sempre dentro da past...

    Este guia vai mostrar como usar o Gevey Turbo SIM para desbloquear o iPhone 4 com a baseband 2.10.04, 3.10.01 e 4.10.01. Funciona por enquanto até o iOS 4.3.5 (testado por mim).     Este tutorial se aplica somente a pessoas que tem seu iPhone importado bloqueado por operadora e atualizou o firmware e a baseband (por descuido) . Se não souber onde comprar o Gevey, entre em contato comigo que tenho para vender.

O exemplo abaixo cria uma Stored Procedure no Firebird para retornar CPF ou CNPJ formatados com pontuação. Você passa como parâmetro somente os numeros do documento. Enjoy! create or alter procedure FORMATA_CPFCNPJ (     INCPFCNPJ varchar(14)) returns (     RESULTADO varchar(18)) as begin   /* Formata CPF ou CNPJ de somente números para números e pontuação      Nilcemar P. Ferreira - http://nilcemar.blogspot.com - nilcemar@gmail.com - 10/2011*/   if (char_length(:incpfcnpj)=11) then  --CPF   begin       resultado = Substring( :inCPFCNPJ from 1 for 3 ) || '.' || Substring( :inCPFCNPJ from 4 for 3 ) || '.' ||                   Substring( :inCPFCNPJ from 7 for 3 ) || '-' || Substring( inCPFCNPJ from 10 for 2 );   end   else   if (char_length(:incpfcnpj)=14) then  --CNPJ  17.605.320/00...