RE: Res: Res: [delphi-br] convertendo string minuscula em maiuscula
http://br.groups.yahoo.com/group/lista-delphi/message/114842 To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 17 Oct 2008 06:21:14 -0700 Subject: 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/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] --- 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] Para: delphi-br@yahoogrupos.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 Para: Grupo_Delphi 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 _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack
Re: Res: Res: [delphi-br] convertendo string minuscula em maiuscula
Grande Pedida... manda!!! Willian Jhonnes Lara dos Santos escreveu: 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/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] mailto:willianjhonnes%40yahoo.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] mailto:delphijean%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.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] 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] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: Res: Res: [delphi-br] convertendo string minuscula em maiuscula
Também acho que já vi isso em algum lugar... Mas indo um pouco além, com as conjunções tudo certo, mas é com abreviações em que a pessoa não digita o ponto (.) que você pode ter um inconveniente ou outro. Atte, Ricardo. --- Em sex, 17/10/08, Willian Jhonnes Lara dos Santos [EMAIL PROTECTED] escreveu: De: Willian Jhonnes Lara dos Santos [EMAIL PROTECTED] Assunto: Res: Res: [delphi-br] convertendo string minuscula em maiuscula Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 17 de Outubro de 2008, 11:21 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 - - - - --- __ 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]
Re: Res: Res: [delphi-br] convertendo string minuscula em maiuscula
Willian, É interessante sim. Veja se consegue os fontes. Se quiser, coloco meu blog a sua disposição. Se quiser colocar os fontes no meu servidor FTP, está disponível. []s Adriano Santos www.dug-sp.com Willian Jhonnes Lara dos Santos respondeu: 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/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] mailto:willianjhonnes%40yahoo.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] mailto:delphijean%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.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] 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] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.173 / Virus Database: 270.8.1/1730 - Release Date: 17/10/2008 08:07
Re: Res: Res: [delphi-br] convertendo string minuscula em maiuscula
para que ainda quizer uma função que converte para maiusculo somente a primeira letra function UpperNome(const Nome: String): String; var x : Integer; lista : Array[0..18] of String[03]; function NaoAchaPreposicao(Palavra : String): Boolean; var x : Integer; begin Result := True; for x := 0 to 18 do if (Trim(Palavra) = lista[x]) then Result := False; end; // FUNCTION begin if (Nome = '') Then Exit; Result := LowerCase(Nome); lista[0] := 'das'; lista[1] := 'dos'; lista[2] := 'de'; lista[3] := 'do'; lista[4] := 'da'; lista[5] := 'o'; lista[6] := 'a'; lista[7] := 'os'; lista[8] := 'as'; lista[9] := 'em'; lista[10] := 'na'; lista[11] := 'no'; lista[12] := 'até'; lista[13] := 'ao'; lista[14] := 'aos'; lista[15] := 'com'; lista[16] := 'dum'; lista[17] := 'por'; lista[18] := 'sob'; Result := UpCase(Result[1]) + Copy(Result, 2, Length(Result)); for x := 2 to Length(Nome) do begin if (Nome[x] = #32) then if (Copy(LowerCase(Nome),x+1,1) 'e') then if (NaoAchaPreposicao(Copy(LowerCase(Nome),x+1,3))) then Result := Copy(Result, 1, x) + UpCase(Result[x+1]) + Copy(Result, x+2, Length(Result)); end; // FOR end;
