Olá pessoal,
Opa, pode mandar.
Um abraço! Silvio Clécio
Contatos/Blog
Skype: silvioprog
Yahoo! Messenger: [EMAIL PROTECTED]
MSN (Hotmail): [EMAIL PROTECTED]
BlogSpot: http://silvioclecio.blogspot.com/
- Mensagem original
De: Willian Jhonnes Lara dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 17 de Outubro de 2008 10:21:14
Assunto: Res: Res: [delphi-br] convertendo string minuscula em maiuscula
Mesmo não querendo, mas já dando um pitaco, todas as rotinas postadas fazem a
string joão ferreira de lima e silva virar João Ferreira De Lima E Silva,
quando o correto (prefiro mais elegante) seria João Ferreira de Lima e
Silva.
Há algum tempo atrás tinha feito um componente descendente do TEdit com a
propriedade de capitalizar o texto na saída ou na pressão da barra de espaço.
Ele tinha uma estrutura que validava, em português, as conjunções de nomes
próprios, não capitalizando- as. Fica a dica para quem quiser. Se alguém se
interessar, procuro os fontes desse componente e posto aqui.
- - - - ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolve dor Object/Free Pascal
willianjhonnes@ yahoo.com. br
- - - - ---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
- - - - ---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
- - - - ---
- Mensagem original
De: Jean Barreiros [EMAIL PROTECTED] com.br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Sexta-feira, 17 de Outubro de 2008 11:10:41
Assunto: Res: [delphi-br] convertendo string minuscula em maiuscula
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 JBPrimeiraLetraMaiu scula(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] com.br
e-mail: [EMAIL PROTECTED] com
- Mensagem original
De: Leonardo Baldino portaldoinferno@ gmail.com
Para: Grupo_Delphi [EMAIL PROTECTED] p os.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]