É isso ai Jean, não tem muito segredo como falei. Tem que montar a function mesmo e sentar o dedo. rsr
[]s Jean Barreiros respondeu: > > 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 JBPrimeiraLetraMaiuscula(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] <mailto:jean%40comerciofsa.com.br> > e-mail: [EMAIL PROTECTED] <mailto:delphijean%40gmail.com> > > ----- Mensagem original ---- > De: Leonardo Baldino <[EMAIL PROTECTED] > <mailto:portaldoinferno%40gmail.com>> > Para: Grupo_Delphi <delphi-br@yahoogrupos.com.br > <mailto:delphi-br%40yahoogrupos.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/ <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 > > -- Boa Leitura, Adriano Santos Director X-35 Consulting && Development IT Manager SoftPark Chief Editor Magazines ClubeDelphi && WebMobile www.delphitodelphi.blogspot.com www.adrianosantos.pro.br www.devmedia.com.br www.dug-sp.com
