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] e-mail: [EMAIL PROTECTED] ----- Mensagem original ---- De: Leonardo Baldino <[EMAIL PROTECTED]> Para: Grupo_Delphi <delphi-br@yahoogrupos.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]
