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.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1135174127/A=3135788/R=2/id=noscript/SIG=12c39trgo/*http://ad.br.doubleclick.net/clk;22846485;12120066;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]<[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
