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
