Conteúdo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Fundo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Desenho: Liso Onda Linha Retalho Madeira Rocha Couro Colméia Vertical Triângulo
Bem-vindo ao Fórum do BABOO!

Desde 2000 o Fórum do BABOO tem ajudado milhões de internautas de Windows a resolverem seus problemas e dúvidas, além de ajudar na remoção de vírus e malwares de seus computadores. Somos o único fórum brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows, então se você tem uma dúvida ou problema que nenhum outro fórum resolve, poste-a aqui pois o MVP Babooadora desafios!
  

O Fórum do BABOO também conta com a participação exclusiva do administrador da área de Segurança MVP Mr.Million que tem reconhecimento internacional da Microsoft pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Se o seu computador está infectado por algum vírus, ele te ajudará a removê-lo!
  

Nosso time de especialistas também inclui Patropi  Osvaldomp  Caze  Ciro-Mota  XERLOUCO ROUMS  Tatha que responderão suas dúvidas sobre diversos assuntos.
 

Participe da nossa comunidade! 

Entre para seguir isso  
Seguidores 0
tommy

Primeira letra dos nomes em maiuscula para delphi 7

6 posts neste tópico

Oi pessoal, vi o outro tópico sobre essa funcao.

Mas eu preciso de uma funcao igual a essa s''o que

para delphi. Colocar as primeiras letras dos nomes

em maiusculas num edit. salvo que de, do, dos, da e

das n~ao devem ser modificadas.

Muito obrigado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

function UpperNome(const Nome: String): String;

var

x : Integer;

lista : Array[0..4] of String[03];

function NaoAchaPreposicao(Palavra : String): Boolean;

var

x : Integer;

begin

Result := True;

for x := 0 to 4 do

if Trim(Palavra) = lista[x] then

Result := False;

end;

begin

Result := Nome;

lista[0] := 'das'; lista[1] := 'dos' ;

lista[2] := 'de'; lista[3] := 'do' ;

lista[4] := 'da';

Result := UpCase(Result[1]) + Copy(Result, 2, Length(Result));

for x := 2 to Length(Nome) do begin

if Nome[x] = #32 then

if Copy(Nome,x+1,1) <> 'e' then

if NaoAchaPreposicao(Copy(Nome,x+1,3)) then

Result := Copy(Result, 1, x)

+ UpCase(Result[x+1])

+ Copy(Result, x+2, Length(Result));

end;

end;

Como usar:

Edit1.Text := UpperNome(Edit1.Text);


11355-SIGjuliano.neu-gmail-orange.png

Compartilhar este post


Link para o post
Compartilhar em outros sites

Grande Morita

Valeu por ter enviado a função.

já coloquei ela em funcionamento.

Abraços. Márcio

Compartilhar este post


Link para o post
Compartilhar em outros sites

----------------

tommy escreveu:



Oi pessoal, vi o outro tópico sobre essa funcao.

Mas eu preciso de uma funcao igual a essa s'o que

para delphi. Colocar as primeiras letras dos nomes

em maiusculas num edit. salvo que de, do, dos, da e

das n~ao devem ser modificadas.


Muito obrigado.
9.gif

----------------


Não sei se você precisa ainda, eu uso essa que eu fiz, ela converte a primeira em maiúscula e quando encontra um espaço, converte a próxima em maiúscula também.

function TrrPrincipal.tratanome(aux: string): String;
var
  i: integer;
begin
  aux:=lowercase(aux);
  if length(aux)<>0
  then Begin
          aux[1]:=Upcase(aux[1]);
          for i:=2 to length(aux) do
            if aux=' '
            then aux[i+1]:=Upcase(aux[i+1]);
          tratanome:=aux;
        End
  else tratanome:=';
end;

"A informação é a redução da dúvida"

Claude Shannon

18724-assinatura6.jpg

Compartilhar este post


Link para o post
Compartilhar em outros sites

legal

java script:%6F%70%65%6E%28

Compartilhar este post


Link para o post
Compartilhar em outros sites

a função está ok, até modifiquei um pouco...

mas...

é só aqui ou ela não converte para minúsculo as letras acentuadas ?

tenho que fazer alguma modificação ?

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;

Compartilhar este post


Link para o post
Compartilhar em outros sites

Responda via Facebook

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!


Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.


Entrar Agora
Esse tópico é útil para você?
Então compartilhe e ajude outros internautas!
Entre para seguir isso  
Seguidores 0

O site BABOO está no ar para informar e ajudar o internauta de Windows. Este site foi publicado em 1999 por Aurélio "Baboo", engenheiro e um dos maiores especialistas brasileiros em Windows, que trabalha profissionalmente com esse sistema operacional desde 1987. Desde 2004 ele é premiado anualmente pela Microsoft como MVP (Most Valuable Professional) pela sua contribuição e ajuda à comunidade de usuários de Windows.

Em 2001 foi criado o
Fórum do BABOO para ajudar o internauta brasileiro a solucionar problemas e dúvidas sobre Windows, Segurança, Office, Hardware e outros temas. Desde 2010 a Microsoft também tem premiado o Mr.Million, administrador da área de Segurança do Fórum do BABOO, pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Atualmente ele é o único MVP brasileiro de Segurança em desktop.

O BABOO é o único site brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows e que participa diariamente e ativamente nos comentários e discussões do site e fórum BABOO.