Emerson, muito obrigado. Esta função deixa somente o primeiro nome com letra maiscula e os nomes restantes as primeiras letras permanecem miniusculas. Mas o EduKobra postou uma função que faz perfeitamente isso. Guarde-a para uma necessidade(muito valida). Grande abraço.
José de Moura function PrimeirasMaiusculas(mNome: string): string; var tam, pos1, pos2 : integer; pal : string; begin tam := Length(mNome); mNome := TrimRight(mNome) + ' '; mNome := AnsiUpperCase(mNome); while true do begin pos1 := pos(' ',mNome) ; if pos1 = 0 then break; pal := Copy(mNome,1,pos1) ; pos2 := pos(pal, ' DA - DAS - DE - DO - DOS - E'); if pos2 > 0 then pal := AnsiLowerCase (pal) else pal := Copy(pal,1,1) + AnsiLowerCase(Copy(pal,2,tam)) ; result := result + pal ; mNome := copy(mNome,pos1 + 1,tam) end; end; --- Em delphi-br@yahoogrupos.com.br, Emerson Moreno <[EMAIL PROTECTED]> escreveu > Encontrei essa função já pronta. Veja se leh serve! > > function Maiuscula(Texto:String): String; {Converte a primeira letra do > texto especificado para maiuscula e as restantes para minuscula} var OldStart: > Integer; begin if Texto <> '' then begin Texto := > UpperCase(Copy(Texto,1,1))+LowerCase(Copy(Texto,2,Length (Texto))); Result > := Texto; end; end; function Padr(s:string;n:integer):string; {alinha > uma string à direita} begin > Result:=Format('%'+IntToStr(n)+'.'+IntToStr(n)+'s',[s]); end; > > > Em 21/12/05, jmourajr2000 <[EMAIL PROTECTED]> escreveu: > > > > Caros amigos, bom dia! > > > > Necessito implementar em um determinado TEdit a seguinte edição, sendo: > > > > A primeira letra de cada nome em maiuscula e as outras letras em > > minuscula. > > > > Exemplo: > > nome digitado: nome exibido: > > > > eLio Dos sANtos Elio dos Santos > > maRIA dA SILVA Maria da Silva > > LuiS DE liMa Luis de Lima > > > > Consigo passar somente o primeiro caracter do primeiro nome, para > > maiusculo e o restante todo em minusculo. > > > > Como posso driblar isso? > > > > Agradeço de ante-mão. > > > > Um Feliz Natal, muita Paz, Saúde e Esperança. > > > > Um grande abraço a todos. > > > > José de Moura > > > > > > > > > > > > -- > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > > > > > > > > > *Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE > > > > <http://br.rd.yahoo.com/SIG=12fotuan2/M=386470.7632849.8508174.236989 3/D=brclubs/S=2137111264:HM/Y=BR/EXP=1135174127/A=3135788/R=2/id=nosc ript/SIG=12c39trgo/*http://ad.br.doubleclick.net/clk;22846485;1212006 6;a?http://www.hoteis.com> > > ------------------------------ > > *Links do Yahoo! Grupos* > > > > - Para visitar o site do seu grupo na web, acesse: > > http://br.groups.yahoo.com/group/delphi-br/ > > > > - Para sair deste grupo, envie um e-mail para: > > [EMAIL PROTECTED]<delphi-br- [EMAIL PROTECTED]> > > > > - O uso que você faz do Yahoo! Grupos está sujeito aos Termos do > > Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>. > > > > > > > -- > []'s > > Emerson Moreno > O grande sábio aprende por ensinar! > > > [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html