Nilcemar Ferreira - Dicas de T.I.

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...

Eata função retorna somente caracteres numéricos da cadeia passada como parâmetro. Muito útil 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;

Esta função formata o telefone digitado em diversos formatos, a partir da quantidade de dígitos do valor passado como parâmetro. Use na função onexit do seu TEdit

Steve Jobs faleceu e todos nós iremos sentir a sua falta, por diversas razões. E é precisamente por essas razões que publicamos o artigo de hoje. Steve Jobs ensinou-nos, a todos nós, muitas lições sobre empreendedorismo, liderança, criatividade e acima de tudo, sobre saber viver. Numa das suas citações mais populares, Steve Jobs referiu um aspecto muito importante, que infelizmente muitas pessoas ainda não conseguiram atingir. Tome nota: “Your time is limited, so don’t waste it living someone else’s life.” – Steve Jobs Basicamente, esta citação encaixa-se perfeitamente a todos aqueles blogueiros e webmasters que perdem mais tempo criticando ou desdenhando o trabalho dos seus concorrentes, do que propriamente a fazerem algo para mudar o mundo, ou simplesmente ajudar outros usuários.  Veja as 10 lições mais importantes de Steve Jobs