Willian, É interessante sim. Veja se consegue os fontes. Se quiser, coloco meu blog a sua disposição. Se quiser colocar os fontes no meu servidor FTP, está disponível.
[]s Adriano Santos www.dug-sp.com Willian Jhonnes Lara dos Santos respondeu: > > Mesmo não querendo, mas já dando um pitaco, todas as rotinas postadas > fazem a string "joão ferreira de lima e silva" virar "João Ferreira De > Lima E Silva", quando o correto (prefiro "mais elegante") seria "João > Ferreira de Lima e Silva". > > Há algum tempo atrás tinha feito um componente descendente do TEdit > com a propriedade de capitalizar o texto na saída ou na pressão da > barra de espaço. Ele tinha uma estrutura que validava, em português, > as conjunções de nomes próprios, não capitalizando-as. Fica a dica > para quem quiser. Se alguém se interessar, procuro os fontes desse > componente e posto aqui. > > --------------------------------------------------- > Att.: > Willian Jhonnes L. dos Santos > Analista/Desenvolvedor Object/Free Pascal > [EMAIL PROTECTED] <mailto:willianjhonnes%40yahoo.com.br> > --------------------------------------------------- > Seja livre. Use Linux. > Grupo de Usuários GNU/Linux de São José dos Pinhais > Linux user number 449753 > --------------------------------------------------- > Powered by Slackware Linux 12.0 > Kernel 2.6.21.5-custom > --------------------------------------------------- > > ----- Mensagem original ---- > De: Jean Barreiros <[EMAIL PROTECTED] > <mailto:delphijean%40yahoo.com.br>> > Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> > Enviadas: Sexta-feira, 17 de Outubro de 2008 11:10:41 > Assunto: Res: [delphi-br] convertendo string minuscula em maiuscula > > Olá Leonardo, não quero tirar o crédito do pessoal que já contribuio não, > mas, segue ai uma função bem simples que eu fiz pra usar no meu dia-a-dia: > > function JBPrimeiraLetraMaiu scula(texto: string): string; > Var > S: String; > I: Integer; > begin > S := LowerCase(texto) ; > for I := 1 to Length(S) do > begin > if I = 1 then > S[I] := UpCase(S[I]) > else if S[I-1] = ' ' then > S[I] := UpCase(S[I]) ; > end; > result := S; > end; > > att, > Jean Barreiros > Programador/ Web-Designer > Delphi, C++, PHP, JavaScript > FireBird/InterBase, MySql, SQLServer, PostGree, Oracle > msn: [EMAIL PROTECTED] com.br > e-mail: [EMAIL PROTECTED] com > > ----- Mensagem original ---- > De: Leonardo Baldino <portaldoinferno@ gmail.com> > Para: Grupo_Delphi <[EMAIL PROTECTED] os.com.br> > Enviadas: Sexta-feira, 17 de Outubro de 2008 8:49:37 > Assunto: [delphi-br] convertendo string minuscula em maiuscula > > alguem sabe onde eu posso encontrar uma procedure que quando eu insiro > uma string como "AVENIDA AFONSO PANSAN" ela me retorne essa mesma > string porem somente com a primeira letra de cada palavra em maiusculo > > -- > Leonardo Carlos Baldino - The Highlander > > ____________ _________ _________ _________ _________ __ > Fale com seus amigos de graça com o novo Yahoo! Messenger > http://br.messenger .yahoo.com/ > > [As partes desta mensagem que não continham texto foram removidas] > > __________________________________________________ > Fale com seus amigos de graça com o novo Yahoo! Messenger > http://br.messenger.yahoo.com/ <http://br.messenger.yahoo.com/> > > [As partes desta mensagem que não continham texto foram removidas] > > > ------------------------------------------------------------------------ > > > No virus found in this incoming message. > Checked by AVG - http://www.avg.com > Version: 8.0.173 / Virus Database: 270.8.1/1730 - Release Date: 17/10/2008 > 08:07 > >