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]