Buscar

Colocar maiúscula nas primeiras letras das palavras de uma string com exceção das preposições

Código

// Colocar maiúscula nas primeiras letras das
// palavras de uma string com exceção das
// preposições

function PriMaiuscula(nome:String):String;
var
   i  : Integer;
   apelido : String;
   branco : Boolean;
begin
     apelido := '';
     branco := True;

     nome := LowerCase(nome);

     apelido := UpperCase(Copy(nome,1,1));

     for i := 1 to Length(nome) do
     begin
          if (Copy(nome,i,1) = ' ') then
             begin
                  branco := ((UpperCase(Copy(nome,i,4)) = ' DO ') or
                             (UpperCase(Copy(nome,i,3)) = ' E ') or
                             (UpperCase(Copy(nome,i,4)) = ' DE ') or
                             (UpperCase(Copy(nome,i,4)) = ' DA ') or
                             (UpperCase(Copy(nome,i,5)) = ' DOS ') or
                             (UpperCase(Copy(nome,i,5)) = ' DAS '))
             end;
          if not branco then apelido := apelido+UpperCase(Copy(nome,i+1,1)) else  apelido := apelido+Copy(nome,i+1,1);
          branco := True;
     end;
     Result := apelido;
end;
 

Publicidade

Vote na dica




Quantidade de votos: 2 votos
Aceitação: 20%


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 11/11/09
Por: Silas De Oliveira Rosa
Visualizada: 3120 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009