[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
Re: [delphi-br] convertendo string minuscula em maiuscula
function MixCase(InString: String): String; var I: Integer; begin Result := LowerCase(InString); Result[1] := UpCase(Result[1]); For I := 1 To Length(InString) - 1 Do If (Result[I] = ' ') Or (Result[I] = ) Or (Result[I] = '') Or (Result[I] = '-') Or (Result[I] = '.') Or (Result[I] = '(') Then Result[I + 1] := UpCase(Result[I + 1]); end; procedure TForm1.Button1Click(Sender: TObject); var s :string; begin s := LowerCase(trim(edit1.text)); label1.caption := mixcase(s); end; Espero ter ajudado. --- Em sex, 17/10/08, Leonardo Baldino [EMAIL PROTECTED] escreveu: De: Leonardo Baldino [EMAIL PROTECTED] Assunto: [delphi-br] convertendo string minuscula em maiuscula Para: Grupo_Delphi delphi-br@yahoogrupos.com.br Data: Sexta-feira, 17 de Outubro de 2008, 9:49 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]
Re: [delphi-br] convertendo string minuscula em maiuscula
Se não me engano na biblioteca Jedy, na JCL, tem umas funções de manipulação de string, que faz este tipo de coisa... dê uma verificada na pasta JCL Sds Emanuel Leonardo Baldino escreveu: 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
Re: [delphi-br] convertendo string minuscula em maiuscula
OOOPS... errei... Não é Jedy é Jedi Sds Coutinho - Yahoo escreveu: Se não me engano na biblioteca Jedy, na JCL, tem umas funções de manipulação de string, que faz este tipo de coisa... dê uma verificada na pasta JCL Sds Emanuel Leonardo Baldino escreveu: 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
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 JBPrimeiraLetraMaiuscula(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] e-mail: [EMAIL PROTECTED] - Mensagem original De: Leonardo Baldino [EMAIL PROTECTED] Para: Grupo_Delphi delphi-br@yahoogrupos.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]
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 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/ [As partes desta mensagem que não continham texto foram removidas]
Res: Res: Res: [delphi-br] convertendo string minuscula em maiuscula
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]
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: [delphi-br] convertendo string minuscula em maiuscula
É isso ai Jean, não tem muito segredo como falei. Tem que montar a function mesmo e sentar o dedo. rsr []s Jean Barreiros respondeu: 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 JBPrimeiraLetraMaiuscula(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] mailto:jean%40comerciofsa.com.br e-mail: [EMAIL PROTECTED] mailto:delphijean%40gmail.com - Mensagem original De: Leonardo Baldino [EMAIL PROTECTED] mailto:portaldoinferno%40gmail.com Para: Grupo_Delphi delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.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/ 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 -- Boa Leitura, Adriano Santos Director X-35 Consulting Development IT Manager SoftPark Chief Editor Magazines ClubeDelphi WebMobile www.delphitodelphi.blogspot.com www.adrianosantos.pro.br www.devmedia.com.br www.dug-sp.com
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
Res: 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. A idéia do componente era evitar isso tb. Como ele não capitalizava o e, mas eu podita ter o nome carlos e. da silva, ele verificava o . e capitalizava a primeira letra entre o espaço e o .. Tenho d procurar os fontes... Eles estão na minha máquina, em casa. Qndo chegar, posto d lá. []'s --- 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 --- __ 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
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;