Buscar por:

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;