Clube da Programação e Hardware

Tutorial, dicas, Programação, Hardware entre outros assuntos.
 
InícioInício  CalendárioCalendário  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Como deixar as 1º letras maiusculas de um componente edit. (Delphi)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
vanix



Mensagens : 25
Data de inscrição : 20/01/2011

MensagemAssunto: Como deixar as 1º letras maiusculas de um componente edit. (Delphi)   Qua Ago 12, 2015 10:47 am

exemplo: final no edit: digita josé rodrigues silva + resultado José Rodrigues Silva.


Código:
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)
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Como deixar as 1º letras maiusculas de um componente edit. (Delphi)
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Como deixar o fórum desta forma e tirar o nome dos moderadores de tal area
» Como Deixar O Forum Todo Com Borda Arredondada?
» [Resolvido] Letra maiuscula no titulo do topico & problema com citação sem escrita
» Como deixar o fundo aparecendo um pouco mais ?
» Como deixar as imagens que enviam com 500x500 px no MÁXIMO

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Clube da Programação e Hardware :: Programação-
Ir para: