Tidal Waves

Pesquisar este blog

Enquanto isso na terra do sol nascente....

em maio 08, 2009

Gerar link
Facebook
Twitter
Pinterest
E-mail
Outros aplicativos

Mais um viral, dessa vez de um chiclete japonês... Cada loco com as suas manias...

cosplay

Gerar link
Facebook
Twitter
Pinterest
E-mail
Outros aplicativos

Comentários

Postar um comentário

Postagens mais visitadas

Blogger finalmente com trackbacks

Pra falar a verdade não é exatamente o Blogger que disponibilizou os trackbacks, mas encontrei um site, o HaloScan , que possui um sistema de comentários e trackbacks. Desta forma podemos suprir está falta do Blogger, tendo a opção de enviar e receber trackbacks, podendo moderar os comentarios e trackbacks. Para enviar trackbacks basta se cadastrar no HaloScan, se você quiser receber trackbacks você deverá fazer uma modificação no código HTML. No caso do Blogger Novo, essa modificação pode ser feita automaticamente pelo HaloScan, depois de seguir o passo a passo é só começar a utilizar as novas funções adicionadas ao seu blog. Além do Blogger eles suportam vários outros servidores de blogs, a lista completa está na página de instalação do código. O único ponto negativo deste sistema está na hora de receber os trackbacks, porque você perde o link direto para seu site, o que ajudaria no seu PageRank . Neste momento estou usando este sistema apenas para o envio de trackbacks, deixando ess

Substituir vírgula por ponto em uma string

Esta função retorna a string com os caracteres de vírgula substituídos por ponto. Para testa-la você precisará de um botão e dois TEdits. Vamos ao código-fonte: procedure TFormTeste.ButtonSubstituiClick(Sender: TObject); begin //Aqui será passado para o EditResult o resultado da funcao VirgtoPonto EditResult.Text := VirgtoPonto(EditOriginal.text); end; Function TFormTeste.VirgtoPonto(Text: string) : string ; var n : integer; Texto_Result: string; begin for n := 1 to length(Text) do begin //Checa se o caracter atual é uma vírgula if Copy(Text,n,1) = ',' then //caso seja uma vírgula, acrescenta um ponto na string Texto_Result := Texto_Result + '.' else //Caso não seja uma vírgula, copia o caracter para a string Texto_Result := Texto_Result + copy(Text,n,1); end; Result := Texto_Result; end; Technorati Tags: delphi , edit , string , function

Tecnologia do Blogger