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

O Brasil está em 163o. lugar quando o assunto é velocidade de internet em 224 países do mundo. De acordo com pesquisa divulgada pela Pando Networks, a média de 105 KBps vista no País faz com que nações como Haiti (128 KBps) e Angola (113 KBps) fiquem à frente no quesito. O levantamento foi deito de janeiro a junho deste ano, com base em 27 milhões de downloads de 20 milhoes de computadores ao redor do planeta. A média ficou em 580KBps, estando a Coreia do Sul com a melhor colocação (2.202 KBps), seguida da Romênia (1,909 KBps) e Bulgaria (1,611 KBps). Os Estados Unidos ficaram levemente acima da média, com de 616KBps. Falando apenas de cidades, as menores são Argel, na própria Argélia, com 56 KBps, a brasileira Itapema, com 61 KBps, e a boliviana Santa Cruz, com 62KBps. E que venham as olimpíadas e a  copa do mundo  !! Fonte: ITWeb

Para executar um programa e esperar até esse programa finalizar, use a rotina abaixo: Acrescente na cláusula  uses  as units:  uses System,Windows,SysUtils; function Executa (Arquivo : String; Estado : Integer) : Integer; var

Dica para quem quer abreviar nomes no Delphi function AbreviaNome(Nome: String): String; var   Nomes: array[1..20] of string;   i, TotalNomes: Integer;